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Guida per l’input dei programmi versioni 
VIC 20 e C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe / }. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [()] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario"' questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL. 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


{CLR } 

{HOME} 
{SU} " 
{GIU'} 
{SIN} 
{DES } 

{RVS } 
{OFF} 

{BLK } 

{WHT} 
{RED} 


SHIfl IClSf/HOME 


C18/H0ME 


SHIFT 


iiUMlll 


G 




1 




r 


Emo ,. 0 


□ 


{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 

(<1>I 
[ < 2 >} 

«3>] 

{< 4 >} 

K5>) 

[< 6 >] 



IO 


IO 




IO 




o 


k. [<7>| 
H I<8>1 

□ (fH 

B 


CTRL 


30 

30 
3 11 
30 
30 
30 


Sii 

{F3} 

□ 

{ F 4 I 

15 

{F5} 


{ F6 } 


{ F7 } 

E 

{ F8 } 




30 


30 




m 


HvJ 


rei 


riii 


un 


in 


Hi] 



Per ricevere gli arretrati di compilare il seguente tagliando: 

K 

. Compilare ed inviare in busta chiusa a: 

J.SOT f viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome_ 

Cognome________—___— --- 

Indirizzo_______.__— - 

CAP_ Città_____ ..—:- Prov. 


Desidero ricevere i seguenti numeri arretrati di 



Ifl 


dedicato a. 


Anno 
Anno _ 


a L. 2 000 cad. per un totale di L 


a mezzo 


□ assegno allegato □ contanti allegati 

K 
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Stop Bus 


Se non l'hai già fatto>, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette , 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola "-.rem" seguita da un nume¬ 
ro, detto checksum ; non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Biig è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restare (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4). Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il 06 e il PLUS/4,■ 
SYS 40704 per il C 64. 
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STOP BUG per C64 e VIC 20 


100 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI, A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

2 00 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
2 20 DATA3 2,1 41 ,36,3,1 69,999,1 41 ,37,3 

2 30 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,254,1 33 
260 DATA254,1 6 5,2 51 ,1 66,2 52,1 64,253,40,96 
27 0 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,2 51 
280 DATA3,206,251,3,169,0,133,216,169 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,210,255 

3 00 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,2 54,1 72,33,999,1 92,87,208,6 
3 20 DATA32,205,1 89,76,1 1 7,999,32,205,221 
3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
3 40 DATA2 51 ,3,1 33,21 4,76,55,99 9 


STOP BUG per CI 6 e PLUS/4 

100 POKE55,0:POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = l 61 28T01 6260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOI 4248THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF> ATTIV 
ATO.": NEW 

20 0 DATAI 7 3,34,3,201 ,32,208,1 ,96,141 

21 0 DATA33,63,1 73,35,3,141,34 ,-6 3,169 
220 DATA32,1 41 ,34,3,169,63,141 ,35,3 

2 30 DATAI 69,0,1 33,6,96,32,232,235,1 33 
240 DATA3,1 34,4,1 32,5,8,2 01 ,1 3,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,6,133 
260 DATA6,165,3,166,4,164,5,40,96 

27 0 DATAI 69,1 3,32,21 0,255,1 65,205,1 41 , 2 51 

28 0 DATA3,206,251 ,3,1 69,0,133,207,1 69 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 

3 00 DATAI 69,58,32,210,255,166,6,169,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
330 DATAI 69,32,32,21 0,255,32,21 0,25 5,1 73 
340 DATA251 ,3,1 33,205,76,55,63 



Eric 


Joystick 


Tutti voi conoscerete quei simpati¬ 
ci giochi in cui bisogna "rompere" 
un muro. In BRIC, viceversa , invece 
di distruggere il muro bisogna co¬ 
struirlo. Come si fa? Ma usando 
una cazzuola da muratore; natural¬ 
mente! 

Mediante il joystick potete muove¬ 
re la cazzuola, che ad ogni passo 
lascia a terra un mattone e vi fa 
guadagnare un punto; più mattoni 
poserete; quindi, maggiore sarà il 
vostro punteggio. 


Ogni tanto sullo schermo apparirà 
un bonus contrassegnato da un 
punto interrogativo, esso può va¬ 
lere da 10 a 50 punti. Fate però 
attenzione; nella foga del vostro 
nuovo lavoro di muratori, a non 
andare a sbattere contro uno dei 
muri che avete già eretto. Vi dicia¬ 
mo infine che il gioco è pure ac¬ 
compagnato da una gradevole 
musichetta. Allora, possessori di 
VIC 20, cosa aspettate a digidar¬ 
lo? 


10 REM**BRIC** 

: rem 

1 3 

20 REM* *PAPERSOFT** 

: rem 

1 62 

30 REM**TRAD.& ADATT. DI M.ANTICOLI** 

: rem 

1 01 

1 000 

PRINTCHR$(14 7)CHR$(158) :POKE36879,l4 :POKE52,28:POKE5 


6,28:CLR 

: rem 

34 

1 01 0 

FORI = 716 8T07679:POKEI,PEEK(1 + 2560 0) 

:NEXT :rem 

1 95 

1 020 

FORT=lT064: READA:NEXT:RE=1 :A=0 

: rem 

1 76 

1 030 

A=0 :FORJ = 82 8T0912 :READX:POKEJ,X :A = A+X:NEXT:READX 




: rem 

1 31 

1 035 

IFAOXTHENPRI NT" {YEL} ERRORE NELLE D ATA" : END : r em 

1 1 5 

1 040 

F0RC=7432T07463 :READH:POKEC,H:NEXT: 

POKE36869,255 




: rem 

235 

1050 

IFRE=1THENRESTORE 

: rem 

1 73 

1 055 

GOSUBl550 

: rem 

22 

1060 

SYS828 :GOTOl500 

: rem 

161 

1 070 

SC = 7680:CO = 38400 :X=INT(RND(1)*21+1 ) 

:Y=INT(RND(1 ) *22 + 


1) 

: rem 

46 

1 080 

SI=36874 :S2 = S1+1 :S3=S2 + 1 :VO=S3 + 2 

: rem 

79 

1 090 

PRINTCHR$(19)"PUNTI :"SE :PRINTCHR$(19)TAB(11)"REC 

. : "H 


I 

: rem 

221 

1 1 00 

Z=INT(RND(1)*4+1) 

: rem 

1 81 

ino 

FORI=22TOOSTEP-1:POKE36864,12+1:POKE36866,150-1: 

NEXT 



: rem 

159 

1 1 20 

REM 

: rem 

1 68 

1 1 30 

OX=X:OY=Y:SE=SE+1 

: rem 

1 24 

1 1 40 

PRINTCHR? (1 9) CHR$ ( 5 ) TAB ( 6 ) ; SE : PRINTCHR? (1 9)TAB(1 6) ;H 


I : IFSE>HITHENHI = INT(SE) 

: rem 

1 66 
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1 1 50 
1 1 60 
1 1 70 
1 1 80 
1 1 90 
1 200 
1210 

1 220 
1 230 
1 240 
1 250 
1 260 
1 270 
1 280 
1 290 
1 300 
1 31 0 
1 320 
1 330 
1 340 
1 350 
1 360 
1 370 
1 380 

1 390 


IFPEEK(841)=0THENZ=1 
IFPEEK(842)=0THENZ=2 
IFPEEK(843)=0THENZ=3 
IFPEEK(844)=0THENZ=4 
ONZGOSUB1290,1310,1330,1350 
POKES2,0 :POKES3,0 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


205 
208 
21 1 
21 4 
231 
30 


READTi,T2:TT=TT+1:IFTT=32THENRESTORE:TT=1:GOSUB1370 



: rem 

1 1 7 

POKEVO,5:POKES3,Tl:POKES2,T2 

: rem 

58 

POKESl,0:IFPEEK(SC+X+22*Y)=3 5THENGOSUB14 20 

: rem 

90 

IFPEEK(SC+X+22*Y)=33THENl450 

: rem 

1 47 

POKECO+OX+2 2*OY,7 :POKESC+OX+22*OY,3 3 

: rem 

227 

POKECO+X+22*Y,5 :POKESC+X+22*Y,3 6 

: rem 

1 69 

GOTOl130 

: rem 

200 

REM 

: rem 

1 75 

Y=Y-1 :IFY<1THENY = 22 

:rem 

209 

RETURN 

:rem 

1 64 

Y=Y+1:IFY>22THENY=1 

:rem 

202 

RETURN 

: rem 

1 66 

X=X-1 :IFX< 0THENX = 21 

: rem 

1 98 

RETURN 

: rem 

1 68 

X=X+1:IFX>21THENX=0 

: rem 

200 

RETURN 

: rem 

1 70 

REM 

: rem 

1 75 

FORV=OTOl5STEP1:POKEVO,V:POKES3+1,200+V*3: 

NEXT:POKES 

3+1,0 :POKES3,230:FORT=1TOl0 

: rem 

26 

NEXT 

: rem 

1 2 


1 400 
1410 

1 420 
1 430 

1 440 
1 450 
1 460 
1 470 


R=INT(RND(1)*440):P=SC+22+R 

POKES3,0:POKEVO,0 :POKEP+3 0 720,5:POKEP,3 5 


33 


: rem 
RETURN 

: rem 233 

REM : rem 171 

FORL=1T04:FORF=130TO250STEP10 :POKESl ,F:POKES2,F:POKE 
S3,F:NEXT:NEXT:POKES1,0 : rem 170 

SE=SE+INT (RfJD ( 1 ) *50 + 10) : RETURN :rem 56 

REM :rem 174 

POKES3,0 : rem 220 

FORV=15TOOSTEP-.1 :POKESC+OX+ 2 2 *OY,33:POKEVO,V:POKES1 


, 1 60+V*3:POKES2,180+V*3 


rem 186 


1 480 POKESC+OX+22*OY,34 :NEXT:POKESC+OX+22*OY,32 :POKESl ,0: 


1 490 
1 500 
1 510 
1 520 

1 530 
1 540 

1 550 
1 560 


POKES2,0 

POKE646,2:GOSUBl550 
GOSUB1 540 :FORG = lTOl00:NEXT 
IFPEEK (845) OOTHENl 500 


: rem 
: rem 
: rem 
: rem 


39 
1 28 
1 47 
1 2 


FORI = 0TO2 2 :POKE36864,1 2 + 1 :POKE36866,1 50-1:NEXT 

:rem 10 

TT=1 :RESTORE:SE=0:PRINT"{CLR}":GOTO!0 70 :rem 85 

D$=RIGHT$(W$,1)+LEFT$(W$,21):W$=D$:PRINT"{HOME}{CYN} 
"W$:RETURN : rem 187 


REM 

PRINT"{HOME}{ 4 GIU'}"; 


: rem 
: rem 


1 75 
47 
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1 570 

1 580 

1 590 

1 600 

1 61 0 

1 620 

1 630 

1 640 
1 650 
1 660 
1 670 
1 680 
1 690 

1 700 

1 71 0 

1 720 
1 730 
1 740 

1 750 
1 760 


1 770 
1780 

1 790 

1 800 
1 81 0 

1 820 
1 830 


PRINT"{ 

3 

DES} 

! ! I { 

2 SPAZI}I1I{ 

2 SPAZI}! 

i » r i " 

a • • • 








: rem 

96 

PRINT"{ 

3 

DES} 

!{ 2 

SPAZI}I !{ 2 

SPAZI}!{ 

3 SPAZI} 

! 

* 

{ 2 SPAZI} 

1 " 

• 




: rem 

1 88 

PRINT"{ 

3 

DES} 

! { 2 

SPAZI}! !{ 2 

SPAZI}! ! 

t " 

• 








: rem 

1 89 

PRINT"{ 

3 

DES} 

!!!{ 

2 SPAZI}! ! !{ 

2 SPAZI}! 

! " 

• 








: rem 

247 

PRINT"{ 

3 

DES} 

! { 2 

SPAZI}! ! !{ 

2 SPAZI}! 

1 11 








: rem 

1 82 

PRINT"{ 

3 

DES} 

! { 2 

SPAZI}! !{ 2 

SPAZI}! ! 

! 

• 


{ 2 SPAZI} 

1 " 

« 




: rem 

21 6 

PRINT"{ 

3 

DES} 

I ! I { 

2 SPAZI}!{ 2 

SPAZI}! ! 

riti” 

• • • • 








: rem 

60 

PRINT"{ 

3 

GIU’ 

}{CYN}! ! ! ! BY PAPERSOFT !!! 

!" : rem 

1 97 

W$ = " I ! ! 

t 1 
• • 

PREMI FIRE !!!!!" 


: rem 

1 81 

RETURN 






: rem 

1 73 

REM 






: rem 

1 78 

DATAI 95 

,135,0, 

0 



: rem 

5 


DATAI 95,1 35,0,0,201 ,1 47,209,1 63,207,1 59,201 , 1 47,21 5, 
175,0,0,215,175,0,0,215,175 :rem 72 

DATA219,183,207,159,209,163,201,147,0,0,201,147,0,0, 
201,147,209,163,207,159,201,147 :rem 12 

DATAI 95,1 35,225,1 95,223,1 91 ,21 9,1 83,21 5,1 75,209,1 63, 

34 
1 74 

5 

1 87 
164 

202 
1 71 

1 64 

6 

1 73 

3 
5 

80 


207,159,201,147 :rem 

REM :rem 

DATAI 20,1 69,7 8,1 41 ,20,3,169,3,141 ,21 ,3,88 :rem 
DATA96,0,0,0,0,0,169,0,141,19,145,169,127,141 

: rem 

DATA34,145,173,17,145,41,4,141,73,3,173 :rem 

DATAI 7,1 4 5,41 ,8,141 ,74,3,1 73,17,145,41 ,16,1 41 

: rem 

DATA75,3,173,32,145,41 ,1 28,141,76,3,1 73 :rem 


DATAI 7,145,41,32,141,77,3,169,255,141,34,145 

: rem 

DATAI 69,1 28,1 41 ,19,145,76,1 91 ,234,0,0,0,0,71 67 

: rem 

REM :rem 

DATA254,254,254,0,239,239,239,0,0,0,0,0,0,0,0,0 

: rem 

DATA255,199,187,251,247,239,255,239 :rem 

DATAI,2,60,60,60,124,96,128 :rem 
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Rescue 


Alla guida del tuo elicottero stai 
sorvolando la prima linea, quando 
all'Improvviso giunge via radio un 
messaggio: cinque uomini in mis¬ 
sione di ricognizione sono rimasti 
intrappolati negli anfratti del terri¬ 
torio nemico, e hai un minuto di 
tempo per riuscire a portarli tutti 
quanti in salvo prima che vengano 
fatti prigionieri o uccisi. Usando i 
tasti [fi ]-[f3]-[Z]-[X] per modificare 
la direzione in cui si muove l'elicot¬ 
tero, recupera gli uomini posando¬ 
ti su di essi; fai attenzione ai missili 
nemici, che transitano velocissimi 
nella zona, ed evita il contatto col 
terreno e con la parte superiore 


dello schermo. Hai due vite e puoi 
scegliere tra quattro livelli di diffi¬ 
coltà, che determinano la rapidità 
del movimento. Se riesci a salvare 
uomini ti viene assegnato un pun¬ 
teggio che dipende dal numero di 
salvataggi, dal tempo impiegato e 
dagli elicotteri distrutti. 

Il gioco, che gira su VIC 20 inespan¬ 
so, è diviso in due parti; la seconda 
deve venir salvata, chiamandola 
"R ", subito dopo la prima. Chi usa 
il disk drive elimini la parola REM 
nella riga 110 del programma 1. Sia 
da nastro che da disco il carica¬ 
mento del programma 2 avviene 
automaticamente. 


Programma 1 


1 0 

PRINT"{CLR}" 

: rem 

197 

20 

POKE51,0 :POKE52,28 :POKE55,0 :POKE56,2 8:FORI = 

32*8T038 

*8 + 


7 : READA:POKEI+7168,A:NEXT 

: rem 

1 94 

30 

DATAO,0,0,0,0,0,0,0 

: rem 

49 

40 

DATA0,254,16,17,63,120,32,1 20 

: rem 

64 

50 

DATAO, 1 27,8,136,252,30,4,30 

: rem 

226 

60 

DATA6,8,1 6,252,252,1 6,8,6 

: rem 

1 44 

70 

DATA255,255,255,255,255,255,255,255 

: rem 

1 49 

80 

DATA24,52,52,24,126,24,36,54 

: rem 

33 

90 

DATA24,60,98,73,93,89,50,4 

: rem 

21 2 

100 PRINT"{ 2 GIU'}LO"CHR$(34)"R"CHR$(34); 

: rem 

226 

110 REM PRINT",8" 

:rem 

1 71 


120 PRINT"{HOME}":POKEl98,4:POKE631,13:POKE632,82:POKE633 
,117:POKE63 4,1 3:END :rem 128 

Programma 2 

10 PRINTCHR$(14) :POKE36879,8:GOSUB600:PRINTCHR$(142) 

: rem 131 

20 POKE36879,235:PRINT"{CLR}":PRINT"{BLK}{HOME} 

{ 11 GIU'}{ 3 DES}R{ 2 SP AZI}E{ 2 SPAZl}S{ 2 SPAZI}C 
{ 2 SPAZI}U{ 2 SPAZI}E":PX=36878 :rem 188 
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30 POKEPX ,15: FORI=1 TOl 0 : FORJ = 1 80TO250STEP2 : POKE36876 , J : F 



ORJ1=1TOl0 :NEXTJl ,J:POKE36876,0 

: rem 

201 

40 

A=A+1 : IFA05GOT030 

: rem 

21 2 

50 

HI = 0 

: rem 

99 

60 

UO = 5 :EL=2:TI$ = "000000" 

: rem 

82 

70 

PRINT"{CLR}": GOTO260 

: rem 

214 

80 

POKEB+PR,7 :POKEA+PR,PO(PO) 

: rem 

59 

90 

GETA$:POKEl98,0 

: rem 

21 

1 00 

W=PR+MO(PO) 

: rem 

1 26 

1 1 0 

PRINT"{HOME}{GRN}{ 3 DES}%{RVS}"UO"{OFF}{YEL} !{RVS}" 


EL"{RVS}TEMPO "RIGHT$(TI$,2) 

: rem 

235 

1 20 

IFPEEK(A+W)=36THENPOKE(A+PR),38:GOTO360 

: rem 

97 

1 30 

IFPEEK(A+W)=37THENUO=UO-1:GOSUB450 

: rem 

1 04 

1 40 

IFPEEK (A+W) = 3 50RW< 2 2.THENPOKE (A+PR) , 38 : POKEl 98,0 : GOTO 3 


60 

: rem 

97 

1 50 

POKEB+PR,0 :POKEA+PR,32 :POKEB+W,7 :POKEA+W, 

PO (PO) :PR=W 



: rem 

31 

1 60 

FORX=lT03 0 *LV:NEXT 

: rem 

1 43 

1 70 

IFA$="Z"THENPO=2 

: rem 

1 64 

1 80 

IFA$ = "X''THENPO=3 

: rem 

1 64 

1 90 

IFA$="{Fl } "THENPO=1 

: rem 

208 

200 

IFA$="{F3 } "THENPO=4 

: rem 

204 

21 0 

POKEH,32 : H=INT(RND(1 )* 7)+8039 :POKEH,35 

:rem 

161 

220 

POKEG,32 :G = INT(RND(1)*21)+7900 :POKEG,35 

:rem 

1 99 

230 

POKEL,32:L=INT(RND(1 )*220 ) +7702 : POKEL,35 

: rem 

8 

240 

IFTI$>"000059"THEN590 

: rem 

99 

250 

GOTO80 

: rem 

56 

260 

RESTORE 

: rem 

1 88 

270 

FORX=1TO4 : READMO(X) : NEXT:FORX=lT04 : READPO(X) : PO(X+4) = 


PO(X) : NEXT 

: rem 

1 08 

280 

DATA-22,-1,1,22,33,33,34,34 

: rem 

6 

290 

P0KE36879,8:PRINT"{HOME} { YEL}{RVS }{ 4 DES }{ 5 GIU'}PR 


EMI UN TASTO { 2 GIU'}{ 4 DES } Z=SX/X=DX/Fl 

=SU/F3=GIU" : 


POKEl98,0 

: rem 

11 7 

300 

FORI=1TOl0:POKE36876,220:FORJ=lTOl0:NEXT: 

POKE3 6 87 6, 0 : 


FORJ=1TO10 : NEXTJ,I 

: rem 

1 70 

31 0 

POKEl98,0 : WAITl98,1:POKEl 98,0 

: rem 

1 50 

320 

POKE36879,8:PRINT"{CLR} " :POKE36869,255 :POKE36878, 

1 5 



: rem 

35 

330 

A=INT(RND(1 )*21)+7680 :B = A+30720 

: rem 

1 00 

340 

PO=4:PR=22:T=1 

: rem 

32 

350 

GOSUB4 0 0 : GOTO 8 0 

: rem 

1 35 

360 

POKE3687 8,1 5 : FORZ = 255TOl2 8 : FORT=1TO200 : POKE36877, 

Z : NE 


XT:NEXTZ : POKE36877,0 

: rem 

50 

370 

EL=EL-1 

: rem 

87 

380 

IFEL= OTHENGOSUB 70 0:FORT=lT02000 : NEXT: : PRINT"{CLR} 

" :GO 


SUB52 0 : SC = 0:GOTO6 0 

: rem 

no 

390 

IFEL< >0THENPO=1 :GOTO80 

: rem 

1 25 


400 PRINT"{BLU}{HOME}{ 17 GIU '}{ 2 SPAZI }$$$ {GRN} %{BLU}$ 
$$ $ $ $ $ ${GRN}%{BLU}$$$$${ 2 SPAZI}$$$$$$${ 3 SPAZl}$$ 
$$$$$$$$" ;rem 32 
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410 PRINT"{SU}{ 4 SPAZI}$$$$${ 3 SPAZI}$$$$$$$$$$ 

{ 4 SPAZI}$$$${ 6 SPAZI}$$$$$$${ 3 SPAZl}$$$$$ 
t 6 SPAZI}$ ${ 3 SPAZI} $$ $ " : rem 7 

420 PRINT"{SU}{ 4 SPAZl}$${ 7 SPAZl}$$${ 3 SPAZI}$$${YEL} 
%{BLU}$ $ $$${ 7 SPAZI} $$ { 2 SPAZI}$$$$$$$$$$$ 

{ 10 SPAZI}$$$$$" : rem 54 

430 PRINT"{SU}$$$$$$$$${ 2 SPAZI}{YEL}%{ 4 SPAZI}%{BLU }$$ 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 

:rem 40 

440 RETURN : rem 120 

4 50 POKE3 6877,INT(RND(1)* 128)+128 :FORT=1TOl 000 :NEXT 

:rem 240 

460 IFEL=2THENSC=SC+2000-VAL(TI$)*1 0:PO = 1 :rem 162 

470 IFEL=1THENSC = SC + 1 0 0 0-VAL(TI $)* 1 0 :PO = 1 :rem 161 

480 IFUO = 0THENPRINT" {CLR} {RVS} { 5 GIU’H 2 DES}MISSIONE C 
OMPIUTA !":GOSUB5 0 0 :GOSUB52 0 :SC = 0: GOTO60 :rem 16 

490 POKE36877,0:POKEl 98,0:PO=1 .'RETURN : rem 255 

500 F0RT=1T02:FORICI40T0220STEP5:POKE36876,1 :POKE36877,25 
4 :FORJ =1TO140 :NEXTJ,I :rem 107 

510 FORT=lTO3000 :POKE368 76,0:POKE36877,0:RETURN :rem 102 
520 POKE36879,59 :rem 113 

530 SC = INT(SC) :PRINT"{CLR}{ 10 GIU'}{RVS}{BLK}PUNTI : "SC: 

PRINT"{GIU'}{RVS}RECORD:"HI"- "NA$ :rem 99 

540 IFSC>HITHENHI=SC:POKEl98,0:INPUT"{GIU'}{RVS}{BLK}NOME 



";NA$:NA$ =LEFT$(NA$,8 ) 

: rem 

70 

550 

PRINT"{RVS}{GIU'}GIOCHI ANCORA (S/N)?" 

: rem 

85 

560 

GETA$: IFA$ = "S"THENPOKE36 869,240:RETURN 

: rem 

44 

570 

IFA$<>"N "GOTO 560 

: rem 

1 1 2 

580 

POKE36869,240:POKE36879,27:PRINT"{CLR}{BLU} 

M ; : END 
: rem 

1 82 


590 PRINT"{ 9 GIU 1 }{RVS}{ 4 DES}TEMPO{ 2 SPAZI}SCADUTO":F 
ORT=lTOSO0 0:NEXT:GOSUB520 : GOTO50 : rem 19 

600 PRINT"{CLR}{HOME}{WHT}SCOPO DEL GIOCO E'{ 4 SPAZI}REC 
UPERARE I 5 UOMINI RIMASTI INTRAPPOLATI." :rem 227 
610 PRINT"{GIU'}PER COMPIERE LA MIS-{ 2 SPAZI}SIONE HAI A 
DISPOSI-" : rem 176 

620 PRINT"ZIONE 2 ELICOTTERI E{ 2 SPAZl}60 SECONDI." 

:rem 242 


630 PRINT"EVITA LA PARTE SUPE-{ 2 SPAZI}RIORE DELLO SCHER 



MO" 

: rem 

21 6 

640 

PRINT"ED I MISSILI NEMICI." 

: rem 

58 

650 

PRINT"{ 2 GIU'{SELEZIONA IL LIVELLO{ 2 SPAZI}(1=DIFFI 


CILE/4=FACILE)" 

: rem 

1 02 

660 

INPUTLV:IFLV<lORLV>4THENPRINT"{ 2 

SU}":GOTO660 




: rem 

1 40 

670 

PRINT"{RVS}{ 3 GIU 1 }{ 4 DES}PREMI 

UN TASTO":POKEl98,0 



: rem 

57 

680 

WAITl98,1 

: rem 

21 0 

690 

RETURN 

: rem 

1 27 

700 

PRINT"{CLR}":POKE36878,15:PRINT"{RVS}{HOME}{ 7 GIU 



{ 5 DES}HAI{ 2 SPAZI}FALLITO" 


:rem 27 
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710 P0KE36874,1 3 5:POKE36875,1 95:POKE36876,1 36:FORT=1T0450 
0 :NEXT ! rein 222 

720 POKE368 7 4,0: POKE3 6 87 5 , 0 :POKE36 87 6, 0 : RETURN :rem 239 


. , * . :!r, ; .1' . ”, 

CI 6 & - plus /4 

Statìstica corrente 



Questo programma consente di ri¬ 
cavare i parametri statistici fonda- 
mentali da un qualunque insieme 
di dati numerici. La prima cosa che 
bisogna introdurre è il numero di 
dati che si desidera elaborare (fino 
a 500)-, dopo di che si passa alla 
digitazione dei valori, che avviene 
a gruppi di 15. Dopo aver imposta¬ 
to ogni gruppo è necessario con¬ 
fermare al computer l'esattezza 
dei dati; se si è commesso uno o 
più errori viene data la possibilità 
di effettuare le correzioni. 

Dopo un tempo di elaborazione 
che dipende dal numero dei dati, 
variando da pochi secondi a qual¬ 
che minuto, vengono visualizzati i 
risultati, e cioè: 

- la somma e la media aritmetica 
(valor medio) dei dati; 

- il valore più alto, quello più bas¬ 
so e la loro differenza, detta varia¬ 
zione; 

- la mediana, cioè il valore che di¬ 
vide a metà i dati messi in ordine 
crescente; 

- la deviazione standard, che è la 
misura di quanto i dati si discosta¬ 
no in media dal valor medio. 

La deviazione standard consente 
quindi una valutazione della di¬ 


spersione dei dati, cioè di quanto 
essi risultano "sparpagliati" rispet¬ 
to al valor medio. In particolare, 
sommando e sottraendo dalla me¬ 
dia aritmetica la deviazione stan¬ 
dard, otteniamo gli estremi di un 
intervallo che, se esiste, compren¬ 
de il 68% dei dati. L'esistenza di 
tale intervallo è subordinata al fat¬ 
to che la somma del valor medio e 
della deviazione standard non su¬ 
peri il valore massimo, e la loro dif¬ 
ferenza non sia inferiore al valore 
minimo. Se queste condizioni sono 
verificate il programma visualizza 
gli estremi dell'intervallo. 

I risultati più attendibili si ottengo¬ 
no se la distribuzione dei dati è di 
tipo "guassiano", cioè se la mag¬ 
gioranza dei valori è concentrata 
attorno alla media aritmetica. Fac¬ 
ciamo un esempio per chiarire le 
idee-, se provate a pesare con una 
bilancia di precisione diverse con¬ 
fezioni apparentemente uguali 
dello steso prodotto, le misure sa¬ 
ranno in genere diverse ma forme¬ 
ranno una distribuzione gaussiana. 
In questo caso il programma vi 
permette di valutare con quale cu¬ 
ra viene determinata la quantità di 
prodotto venduta. 


12 






1 0 

PRINT"{CLR}{ 5 GIU’}{RVS}"TAB(14); 

: rem 

244 

20 

PRINT" STATISTICA " 

: rem 

44 

30 

FORT=lT0300:NEXT 

: rem 

1 87 

40 

INPUT" { 2 GIU,'} VUOI CHIARIMENTI S/N ";C$ 

: rem 

60 

50 

IF C$="S" THEN GOSUB 710 

: rem 

1 1 8 

60 

INPUT"{CLR}{ 2 GIU'} NUMERO DATI ";N 

: rem 

1 1 2 

70 

IFN>500 THEN 100 

: rem 

21 5 

80 

IFN<2 THEN PRINT"{GIU'} ALMENO 2 DATI":GOTO 

1 1 0 

: rem 

21 7 

90 

GOTO 120 

:rem • 

53 

1 00 

PRINT"{GIU’} NON OLTRE 500 DATI" 

: rem 

1 55 

1 1 0 

FORT=lTOl000:NEXT:GOTO 60 

: rem 

241 

1 20 

DIM D(N) :K=1 :K1=15:F = 0 

: rem 

1 37 

1 30 

IF Kl=>N THEN Kl=N:F=l 

: rem 

1 40 

1 40 

PRINT"{CLR}{GIU*}":FOR T=K TO Kl 

: rem 

38 

1 50 

PRINT" DATO"T;: INPUT D(T) 

: rem 

209 

1 60 

SUM=SUM-t-D (T) : NEXT 

: rem 

75 

1 70 

PRINT"{GIU 1 } CI SONO DATI ERRATI S/N 

: rem 

57 

1 80 

INPUT Z$ 

: rem 

1 67 

1 90 

IFZ$ = "S"THENGOSUB 650:ELSE 240 

: rem 

1 90 

200 

PRINT"{ 2 SU}{ 29 SPAZI}" 

: rem 

1 33 

210 

PRINT"{ 37 SPAZI}" 

: rem 

1 00 

220 

PRINT"{ 2 SU} ALTRI ERRORI S/N 

: rem 

225 

230 

GOTO 180 

: rem 

1 03 

240 

IF F= 1 THEN 260 

: rem 

1 60 

250 

F=0:K=K1+1:Kl=Kl+15:GOTO 130 

: rem 

235 

260 

PRINT"{GIU’} ATTENDERE ELABORAZIONE DATI" 

: rem 

1 79 

270 

M=SUM/N 

: rem 

1 49 

280 

FORT = lTON:DF=DF+(D(T)-M) t 2 :NEXT 

: rem 

1 67 

290 

DV=SQR(DF/(N-l) ) 

: rem 

1 1 1 

300 

PI =N 

: rem 

1 59 

310 

Pl=INT(Pl/2):IF Pi=0 THEN 390 

: rem 

242 

320 

P2=N-Pl:P3=l 

: rem 

1 23 

330 

P4=P3 

: rem 

218 

340 

P5=P4+Pl 

: rem 

1 37 

350 

IF D(P4)=<D(P5) THEN 380 

: rem 

1 57 

360 

Q=D(P4) :D(P4)=D(P5) :D(P5)=Q 

: rem 

204 

370 

P4-P4-P1:IF P4=>1 THEN 340 

: rem 

76 

380 

P3=P3+1:IF P3>P2 THEN 310:ELSE 330 

: rem 

2 

390 

N2=N/2:N%=N/2 

: rem 

1 61 

400 

IFN2<>N%THENMD=D(N2+1):GOTO 430 

: rem 

8 

41 0 

IFD(N2)=D(N2+1)THENMD=D(N/2):GOTO430 

: rem 

50 

420 

MD=(D(N2)+D(N2+1))/2 

: rem 

1 99 

430 

M=INT(M*10 t4+.5)/I0 T4 

: rem 

119 

440 

MD = INT(MD * 10 14 +.5)/l0t4 

: rem 

0 

450 

DV=INT(DV*10T4+.5)/I014 

: rem 

19 

460 

PRINT"{CLR}{GIU'}{ 2 SPAZI}{RVS}RISULTATI"; 

: PRINT 1 ' 



{OFF}"; 

: rem 

245 

470 

PRINT" * NUMERO ELEMENTI"N"*" 

: rem 

1 23 

480 

PRINT"{GIU 1 }{ 2 SPAZI}SOMMA ="SUM 

: rem 

45 

490 

PRINT"{GIU 1 }{ 2 SPAZI}MEDIA ="M 

: rem 

105 
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500 PRINT"{GIU'}{ 2 SPAZI}VALORE PIU' ALTO ="D(N) 


51 0 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 
620 
630 
640 
650 
660 
670 
680 
6 90 
700 
71 0 

720 

730 

740 

750 

760 

770 

780 

790 

800 

81 0 

820 

830 

840 

850 

860 

870 

880 

890 


PRINT"{GIU'}{ 2 SPAZI}VARIAZIONE ="D(N)-D(1) 
PRINT"{GIU'}{ 2 SPAZI{MEDIANA ="MD 


IFM+DV>D(N)ORM-DV<D(1)THEN 600 
PRINT"{GIU'}{ 2 SPAZI{PROBABILITÀ' 


O. 

o 


VALORI 


PRINT"{ 2 SPAZI}IL 68 % TRA"M-DV"E"M+DV 
PRINT"{ 2 SPAZI}ALTRI FUORI DA TALI LIMITI" 

GOTO 620 

PRINT"{GIU'} *DISPERSIONE{ 2 SPAZI}DUBBIA{ 2 SPAZI}(D 
ATI" 

PRINT"{ 2 SPAZI}INOMOGENEI O INSUFFICIENTI)" 

INPUT"{GIU'}{ 2 SPAZI{ANCORA S/N ";Z$ 

IF Z$="S" THEN RUN 
END 

INPUT" N. DATO,VALORE CORRETTO"; Ni ,C 
IFNl=>K AND Ni<=KlTHEN 690 
PRINT"{SU}{ 37 SPAZI}" 

PRINT"{SU}:GOTO 650 
SUM=SUM-D(Ni):D(Ni)=C:SUM=SUM+C 
RETURN 

PRINT"{CLR}{GIU'} I PARAMETRI OTTENIBILI SONO 

PRINT"{GIU'}*VARIAZIONE = DIFFERENZA TRA"; 

PRINT" VALORE MAS= SIMO E VALORE MINIMO" 

PRINT"{GIU'}*MEDIA ARITMETICA = SOMMA DEI VA 

PRINT"LORI DI= VISA PER IL NUMERO DEI DATI" 

PRINT"{GIU'}*MEDIANA = VALORE DEL DATO CHE " 


n . 
r t 


: rem 

165 

1) 


: rem 

209 

: rem 

1 32 

: rem 

55 

DV 


: rem 

1 45 

: rem 

21 6 

n 


: rem 

249 

: rem 

43 

:rem 

230 

: rem 

1 1 1 

SPAZI} (D 

: rem 

21 6 

: rem 

1 54 

: rem 

1 86 

: rem 

1 58 

: rem 

1 1 3 

: rem 

1 63 

: rem 

1 33 

:rem 

255 

: rem 

73 

:rem 

1 64 

:rem 

1 1 9 

O 


: rem 

1 03 

: rem 

21 8 

: rem 

97 

ti • 




: rem 

72 

: rem 

230 

• 

t 


: rem 

1 66 

: rem 

1 29 

: rem 

91 

: rem 

99 


PRINT"SI TROVA{ 2 SPAZI}A META' DEI DATI 
PRINT" ORDINATI{ 2 SPAZI}PER{ 2 SPAZI}VALO= 

{ 2 SPAZI}RI CRESCENTI" 

PRINT"{GIU'}*DEVIAZIONE STANDARD ="; 

PRINT"{ 2 SPAZI{PARAMETRO{ 2 SPAZI}CHE{ 3 SPAZI}CONSE 
NTE UNA"; 

PRINT"{ 2 SPAZI{VALUTAZIONE ATTENDIBILE{ 3 SPAZI}" 

PRINT"DELLA DISPERSIONE{SPAZI}PERCEN"; 

PRINT"TUALE DEI VA={ 3 SPAZI}LORI" 

PRINT"{GIU’}*IL PROGRAMMA VALE SOLO"; 

PRINT" QUANDO SONO AP={ 2 SPAZI}PLICABILI"; 

PRINT" I CRITERI FORMULATI DA GAUSS" 

PRINT"{GIU'} PER INIZIARE PREMI UN TASTO" 

GETA$: IFA$ = ""THEN 88 0 
RETURN 


: rem 

98 

SPAZI} 

» . 

! 

: rem 

28 

: rem 

1 70 

: rem 

195 

: rem 

1 31 

: rem 

7 

: rem 

1 33 

:rem 

1 1 0 

: rem 

99 

:rem 

1 29 
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Solitario 



Questo avvincente solitario mette¬ 
rà sicuramente a dura prova la vo¬ 
stra capacità di concentrazione e 
la vostra pazienza. All'inizio vi tro¬ 
verete di fronte ad una scacchiera 
composta da nove caselle , all'In¬ 
terno delle quali sono racchiusi dei 
numeri compresi tra 0 e 5. Alle ca¬ 
selle corrispondono le lettere vi¬ 
sualizzate accanto alla scacchiera, 
che sono: 

QW E 


Il Sioco avviene appunto utilizzan¬ 
do i tasti contrassegnati da queste 
nove lettere. Premendo il tasto Q, 
ad esempio, aumentano di una 
unità i numeri racchiusi nelle casel¬ 
le della riga e della colonna di cui 
la casella Q fa parte: in questo ca¬ 
so, cioè, si modificheranno i nume¬ 
ri delle caselle Q, W, E, A, Z. Se¬ 
guendo questo procedimento do¬ 
vrete, e la cosa non sarà così sem¬ 
plice, rendere uguali a zero tutti i 



ASD 

numeri della scacchiera. Buona 

for- 


ZXC 

tuna! 



1 00 

D$="{ 11 DES}" 


: rem 

1 85 

1 1 0 

M=0 :COLOR4,2,3:COLORO,1 


: rem 

60 

120 

DIMA%(2,2) 


: rem 

1 80 

130 

GOTO620 


: rem 

1 01 

140 

REM **SCHERMO** 


: rem 

50 

1 50 

PRINT"{CLR}[<!>]" 


: rem 

1 23 

1 60 

PRINTD$" [<A>]C[ <R> ] C[<R>]C[<S>] " 

: rem 

21 9 

1 70 

PRINTD$" B B B B{ 2 SPAZI}Q W E" 

: rem 

1 98 

1 80 

PRINTD$ " [ <Q> ] C+C+C[<W> ] 

ri 

: rem 

47 

1 90 

PRINTD$" B B B B{ 2 SPAZI}A S D" 

: rem 

1 79 

200 

PRINTD$ " I<Q>]C+C+C[<W>] 

t 

: rem 

40 

21 0 

PRINTD? 11 B B B B{ 2 SPAZI }Z X C" 

: rem 

201 

220 

PRINTD?" T<Z>TC[<E>]C[<E>]C[<X>] " 

: rem 

226 

230 

RETURN 


: rem 

1 1 7 

240 

REM **DISEGNO CAMPO** 


: rem 

1 55 

250 

FORA=1TOT 1 


: rem 

50 

260 

I = 9*RND(0)+1 


: rem 

66 

270 

GOSUB310 


: rem 

1 73 

280 

GOSUB460 


: rem 

1 80 

290 

NEXT 


: rem 

21 8 

300 

RETURN 


: rem 

1 1 5 

31 0 

REM **MOVIMENTO** 


:rem 

222 

320 

Y=INT((1-1)/3) 


: rem 

193 

330 

X=I-1-3*Y 


: rem 

1 81 

340 

FORZ=0TO2 


: rem 

26 

350 

A%(X,Z)=A%(X,Z)+1 


: rem 

91 

360 

A%(Z,Y)=A%(Z,Y)+1 


: rem 

94 
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370 

NEXT 

: rem 

21 7 

380 

A%(X,Y)=A%(X,Y)-1 

: rem 

94 

390 

WF= 1 

: rem 

1 67 

400 

FORP=0TO2 

: rem 

1 3 

41 0 

FORQ=0TO2 

: rem 

1 5 

420 

IFA%(P,Q)=6THENA%(P,Q)=0 

: rem 

60 

430 

WF=WFAND(A%(P,Q)=0) 

: rem 

35 

440 

NEXT:NEXT 

: rem 

80 

450 

RETURN 

: rem 

1 21 

460 

PRINT"{HOME}"D$ 

: rem 

230 

470 

FORQ=0TO2 

: rem 

21 

480 

PRINTD$"{GIU'}{DES}"; 

: rem 

62 

490 

FORP=0TO2 

: rem 

22 

500 

PRINT"{DES}";RIGHT$(STR$(A%(P,Q)) , 1 ) ; 

: rem 

59 

510 

NEXTP 

: rem 

37 

520 

PRINT 

: rem 

36 

530 

NEXTQ 

: rem 

40 

540 

RETURN 

: rem 

1 21 

550 

REM **INPUT** ' 

: rem 

1 82 

560 

GETKEYA8 

: rem 

201 

570 

FORA=1TO 9 

: rem 

1 4 

580 

IFA$=MID$("QWEASDZXC",A,1)THENI=A:A=9:F=1 

: rem 

1 86 

590 

NEXT 

: rem 

221 

600 

IFF=1THENM=M+1 

: rem 

59 

610 

RETURN 

: rem 

119 

620 

REM **PROGRAMMA PRINCIPALE** 

: rem 

1 77 

630 

GOSUBl40 

: rem 

1 74 

640 

GOSUB240 

: rem 

1 76 

650 

F= 0 :GOSUB550:IFF = 0THEN650 

: rem 

232 

660 

GOSUB310 

: rem 

1 76 

670 

GOSUB460 

: rem 

1 83 

680 

IFWF=0THEN650 

: rem 

1 

690 

PRINT"{GIU' }" 

: rem 

1 29 

700 

PRINTSPC(7)"COMPLIMENTI ! IN";M;"MOSSE" 

: rem 

93 

71 0 

END 

: rem 

1 1 1 
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Schedario 

seconda parte 



Pubblichiamo questa settimana il 
programma n. 2 e la seconda parte 
delle istruzioni per l'uso di SCHE¬ 
DARIO. Rircordiamo che il pro¬ 
gramma n.1 è apparso sullo scorso 
numero: chi non lo avesse ancora 
digitato, si affretti quindi a farlo! Le 
due parti vanno salvate su nastro 
una dopo l'altra, e vi consigliamo 
inoltre di procurarvi una cassetta 
vergine (che userete come cassetta 
dati) per registrare l'archivio che 
costruirete. 

Proseguiamo ora con le istruzioni. 
Dopo che il programma n. 2 è stato 
caricato automaticamente, viene ri¬ 
chiesto di inserire nel registratore 
la cassetta dati, su cui viene regi¬ 
strata la definizione dell'archivio. 
Compare poi il menù principale, 
con le segueti opzioni: 

A - inserimento 
B - visualizzazione 
C - aggiornamento 
D - cancellazione 
E - ricerca 
F - ordinamento 
G - fine 

Inizialmente l'unica scelta possibi¬ 
le è l'inserimento poiché l'archivio 
è vuoto. Vediamo ora in dettaglio 
le varie opzioni. 

INSERIMENTO - Compare la map¬ 
pa che abbiamo definito prece¬ 
dentemente, con le sole descrizio¬ 
ni e i campi vuoti) il cursore si trova 
nella prima posizione del primo 
campo. A questo punto possiamo 
introdurre i dati che vogliamo,- digi¬ 


tando l'ultimo carattere di un cam¬ 
po o premendo RETURN il cursore 
salta automaticamente al campo 
successivo. È possibile muoversi 
coi tasti cursore, ma solo all'interno 
dei campi, poiché al di fuori di essi 
non si può scrivere. Quando il re¬ 
cord è completo e corretto preme¬ 
re FI; il programma provvede 
quindi all'archiviazione e ripropo¬ 
ne la schermata vuota per il prossi¬ 
mo inserimento. Se per sbaglio si 
digita un carattere alfabetico in un 
campo numerico, l'inserimento 
non viene accettato ed il campo 
incriminato viene evidenziato con 
un colore diverso. Terminato l'inse¬ 
rimento premere F7 per tornare al 
menù. 

VISUALIZZAZIONE - Questa op¬ 
zione funziona in modo diverso a 
seconda che l’archivio sia sequen¬ 
ziale o a chiavi. Nel caso di archi¬ 
vio a chiavi compare la richiesta 
della chiave, con una sottolineatu¬ 
ra lunga quanto il campo chiave (o 
la somma dei campi chiave); se 
viene digitata una chiave comple¬ 
ta, solo il record corrispondente 
viene visualizzato, mentre se la 
chiave non è intera appare un indi¬ 
ce con le chiavi (ed eventuali cam¬ 
pi descrittivi) di tutti i record che 
iniziano con la parte di chiave spe¬ 
cificata. Tramite i tasti cursore si 
sposta una freccia posta accanto 
all'indice; quando essa si trova vi¬ 
cino alla chiave desiderata, preme¬ 
re RETURN per vedere il record 
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corrispondente. È possibile andare 
avanti e indietro nell’indice (che 
può essere più lungo di una pagi¬ 
na) o tra i record usando FI e F3. 
Per visualizzare l’indice dell’intero 
archivio è sufficiente non specifi¬ 
care la chiave. 

Nei caso di archivio sequenziale; 
invece, selezionando questa op¬ 
zione compare direttamente l’indi¬ 
ce coi campi descrittivi. 
AGGIORNAMENTO/ 
CANCELLAZIONE - Queste opzio¬ 
ni accedono a neh'esse ai record 
nel modo appena descritto. La pri¬ 
ma permette di modificare i campi 
di un record (tranne la chiave); la 
seconda consente l'eliminazione 
(previa conferma) di un record 
dall'archivio. 

RICERCA - Serve ad impostare un 
criterio di ricerca un pò più com¬ 
plesso, e cioè la ricerca per argo¬ 
mento. Compare la mappa con le 
sole descrizioni, come per l'inseri¬ 
mento; su di essa bisogna digitare, 
uno per volta, gli argomenti di ri¬ 
cerca (l'argomento di ricerca può 
essere un intero campo o anche 
una parte di esso). Dopo aver in¬ 
trodotto un argomento premere 
FI; compare quindi un menù per 
la scelta della relazione di ricerca, 
che può essere = (uguale), < (mi¬ 
nore), > (maggiore/ <= (minore/ 
uguale), > = (maggiore/uguale), 
< > (diverso). Nel caso di campi 
alfanumerici le relazioni di maggio¬ 
re, minore; ecc. vanno intese nel 
senso dell’ordine alfabetico, e la 
ricerca può avvenire anche per 
parte di campo. Viene poi richiesto 
se si desidera introdurre altri argo¬ 
menti di ricerca (fino a un massimo 
di 10). Terminato l’inserimento si 


torna al menù principale, dove si 
può notare che la lettera "E" abbi¬ 
nata alla ricerca ha cambiato colo¬ 
re, Indicando che la ricerca è atti¬ 
vata. A questo punto, selezionan¬ 
do le opzioni B-C-D verranno con¬ 
siderati solo quei record che ri¬ 
spondono ai parametri impostati 
(se non c’è nessun record viene 
generato un segnale acustico). Per 
annullare la ricerca è sufficiente 
tornare al menù e premere E. 
ORDINAMENTO - opzione dispo¬ 
nibile solo per archivi sequenziali. 
Viene presentato lo schermo vuo¬ 
to come per la ricerca; in esso va 
indicato il campo su cui eseguire 
l'ordinamento, riempiendolo con 
caratteri qualsiasi (ad esempio x 
per i campi alfanumerici e 1 per 
quelli numerici); per i campi alfa- 
numerici l'ordinamento può essere 
eseguito anche solo per una parte 
del campo. È possibile selezionare 
un secondo campo su cui ordinare, 
poi un terzo e così via,- per ognuno 
bisogna indicare se l'ordinamento 
deve essere ascendente o discen¬ 
dente. Nel caso di ordinamento su 
più campi, i record vengono ordi¬ 
nati in base al primo campo sele¬ 
zionato; poi, per quelli che hanno 
il primo campo uguale, si passa ad 
ordinare in base al secondo e via 
di seguito. Dopo l'esecuzione del¬ 
l'ordinamento, che può durare an¬ 
che alcuni minuti nel caso di archivi 
molto grandi, si torna al menù prin¬ 
cipale. 

FINE - Da selezionare alla fine delle 
operazioni. Il programma chiede di 
posizionare la cassetta dati per re¬ 
gistrare l'archivio; vi consigliamo di 
tenere un solo archivio su ogni fac¬ 
ciata, registrando la definizione al- 
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l'inizio e i dati dopo un certo nu¬ 
mero di siti, di cui prenderete nota 
per poter ritrovare il punto esatto 
con facilità. 

Ci ausuriamo di essere stati abba¬ 
stanza esaurienti; a nostro avviso, 

Programma 2 


comunque, il modo misliore per 
imparare ad usare SCHEDARIO è 
proprio quello di utilizzarlo, facen¬ 
do tutte le prove che ritenete ne¬ 
cessarie. Quindi, buon lavoro! 


1 00 

REM ******************* 

: rem 

1 47 

1 1 0 

REM * SCHEDARIO 2 * 

: rem 

1 42 

1 20 

REM * DI LUCA STRABLA * 

: rem 

1 34 

1 30 

REM ******************* 

: rem 

1 50 

140 

IFMl$<>" n THENl60 

: rem 

74 

1 50' 

PRINT"MANCANO DATI": END 

: rem 

1 51 

1 60 

IFMl$="{Fi}"THENGOSUB3010 

: rem 

65 

170 

IFMl$="{F3}"THENGOSUB3160 

: rem 

73 

1 80 

GOSUB3 410 :POKE53272,23 

: rem 

222 

1 90 

POKE52000,LK:POKE52001,LR:POKE52002,ID 

:POKE52003, 

FD: P 


OKE52004,ASC(Mi $) 

: rem 

60 

200 

FORC1=1TOLR:POKE52004+C1,ASC(MID$(RC$, 

CI,1)):NEXT 
: rem 

1 1 3 

21 0 

CLR:Mi $ =CHR$(PEEK(52004)) 

: rem 

80 


2 20 LK=PEEK(52000) :LR=PEEK(52001 ) :ID=PEEK(52002) :FD = PEEK( 

52003) :rem 60 

230 FORC1=1TOLR:CI$=C1$+CHR$(PEEK(52004+Cl)):NEXT:RC$=Cl$ 

:rem 20 

240 C1=FRE(0):MX=INT( (Cl - 1 000) /(LR+8)) :rem 49 

250 DIMI%(MX),D%(MX),RE$(MX) :rem 61 

260 FA=491 51 +LR: IFMl $ = " {F3 }"THENGOSUB3330 :reiti 19 

270 PRINT"{CLR}{GIU'}{ 6 SPAZl}{RVS}{ 27 SPAZl}":rem 32 
280 PRINT"{ 6 SPAZI}{RVS}{ 6 SPAZI}MENU PRINCIPALE 

{ 6 SPAZI}" : rem 153 


290 

PRINT"{ 

6 

SPAZI}{RVS}{ 27 SPAZI}{ 2 GIU'}" :rem 

160 

300 

PRINT"{ 

1 1 

SPAZI}{RVS}A{OFF}{ 

2 

SPAZI}INSERIMENTO 



{GIU 1 }" 




: rem 

1 67 

31 0 

PRINT"{ 

1 1 

SPAZI}{RVS}B{OFF}{ 

2 

SPAZI}VISUALIZZAZIONE 


{GIU 1 }" 




: rem 

243 

320 

PRINT"{ 

11 

SPAZI}{RVS}C{OFF}{ 

2 

SPAZI{AGGIORNAMENTO 


{GIU'}" 




: rem 

41 

330 

PRINT"{ 

1 1 

SPAZI}{RVS}D{OFF}{ 

2 

SPAZI}ANNULLO{GIU 1 

}" 






: rem 

1 21 

340 

PRINT"{ 

11 

SPAZI}"CC$"{RVS}E{OFF}{BLU}{ 2 SPAZI}RICER 


CA{GIU 1 

}" 



: rem 

1 04 

350 

PRINT"{ 

1 1 

SPAZI}{RVS}F{OFF}{ 

2 

SPAZI}ORDINAMENTO 



{GIU 1 }" 




: rem 

1 64 

360 

PRINT"{ 

1 1 

SPAZI}{RVS}G{OFF}{ 

2 

SPAZI}FINE{ 2 GIU 1 

}" 






: rem 

1 53 

370 

PRINT"{ 

3 

SPAZI}RECORDS:{ 3 SPAZI}DISPONIBILI 



{ 5 SPAZI} 

"MX 


: rem 

146 

380 

PRINT"{ 

1 4 

SPAZI}DI CUI OCCUPATI 

"I :rem 

1 23 
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390 

PRINT"{ 29 SPAZI}(";:Cl%=(I/MX+.001)*100 

: rem 

243 

400 

IFCl %>79THENPR-INT" {YEL}" ; 

: rem 

67 

410 

PRINTCl%"{SIN}% ){BLU}" 

: rem 

9 

420 

GETM2$:IFM2$<"A"ORM2$>"G n THEN420 

: rem 

24 

430 

IFM2$ = ,, G"THENPRINT" {CLR} " : GOTO363 0 

: rem 

99 

440 

IFM2$="A"THENGOSUBl330:GOTO270 

: rem 

1 4 

450 

IFI=0THENGOSUB3590:GÓTO420 

: rem 

1 03 

460 

IFM2 $ = "B"ORM 2 $ = "C"ORM 2 $ = "D"THENGOSUB520 

: rem 

230 

470 

IFM2$ = "E"ANDR< >0THENR=0:CC$ = "{BLU}":GOTO270 

:rem 

224 

480 

IFM2$="E"THENGOSUB2040 

: rem 

9 

490 

IFM2$="F"AND (LKOOORK2) THENGOSUB3590 : GOTO420 




: rem 

220 

500 

IFM2$="F"THENGOSUB2600 

: rem 

5 

51 0 

GOTO2 7 0 

: rem 

1 04 

520 

REM RICHIESTA CHIAVE 

: rem 

1 99 

530 

IFROOTHENGOSUB24 00: RETURN 

: rem 

1 78 

540 

IFLK = 0THENLO = l :HI = I: GOTO810 

: rem 

1 93 

550 

PRINT"{CLR}{ 3 GIU 1 }{ 4 SPAZI}{RVS} CHIAVE ? 

{OFF}" 



: rem 

1 96 

560 

FORC1=130 5TO1 304+LK:POKEC1 , 45 : NEXT : PRINT"{HOME} 



{ 6 GIU 1 } { RVS } {OFF}{SIN}" ; :C2=0 

: rem 

48 

570 

GETB$ : IFB$=""THEN570 

: rem 

93 

580 

CI=ASC ( B$ ) :IFCl=13THEN660 

: rem 

1 33 

590 

IFB$ = "{SU}"ORB$ = "{GIU’}"ORB$ = "{DES}"ORCl=20ORB$ = " 

1 


{HOME}"ORB$="{CLR}"THEN570 

: rem 

24 

600 

IFCl=148THEN570 

: rem 

62 

610 

IFC2=0ANDB$="{SIN}"THEN570 

: rem 

42 

620 

IFC 2=LKANDB$< >" {SIN}"THEN570 

: rem 

207 

630 

IFB$ = " {SIN}"THENC 2 =C 2 - 1 

: rem 

96 

640 

IFB$<>"{SIN}"THENC 2=C 2 + 1 

: rem 

1 56 

650 

PRINT" {SIN}"B$"{RVS} {OFF}{SIN} "; :GOTO570 

: rem 

62 

660 

K$ = "": Li=C2 : LO=1:HI = I : IFLl =0THEN760 

: rem 

8 

670 

FORC2 = l 2 6 5T01264 + Ll :K$ = K$+CHR$ (PEEK(C2) ) : NEXT : IFLl<>L 


KTHEN760 

: rem 

1 1 7 

680 

GOSUB1140 

: rem 

228 

690 

IFEQ$=" =" THEN720 

: rem 

1 1 0 

700 

PRINT" {HOME} { 19 GIU'}{ 5 SPAZI} {RVS} CHIAVE 

NON 

TROV 


ATA " 

: rem 

1 40 

71 0 

GOSUB3590:PRINT"{SU}{ 38 SPAZI}":RETURN 

: rem 

159 

720 

IFM2$="B"THENGOSUBl580 

: rem 

1 1 

730 

IFM2$="C"THENGOSUBl710 

: rem 

8 

740 

IFM2$="D"THENGOSUBl920 

: rem 

1 3 

750 

RETURN 

: rem 

1 24 

760 

CI$="":C2$="":FORC3=ClTOLK-l:Cl$=Cl$+CHR$(0) 

:C2$ = 

C2$ + 


CHR$ (255) : NEXT 

: rem 

1 21 

770 

LO$=K$+Cl $ :HI$=K$+C2$ 

: rem 

43 

780 

K$ =LO$ : GOSUBl140 : LO = IR 

: rem 

55 

790 

K$=HI$ : GOSUBl140 : HI=IR-1 

: rem 

1 30 

800 

IFHICLOTHEN700 

: rem 

85 

810 

CI=0 : C2=LO : C3=l146:C4 = 114 6+LK+2:C6 = FD-ID + l 

2 rem 

35 


20 



820 PRINT"{CLR}{GIU'}{ 27 SPAZI}{RVS}"HI-LO+1"{SIN} RECOR 
DS {GIU'}" : rem 218 

830 IFL1=0THEN850 :rem 224 

840 FORC9=1TOLl:POKEl066+C9,ASC(MID$(K$,C9,1)):NEXT 

:rem 250 

850 POKE1067+C9,58 :rem 218 

860 C2$ = "" : rem 184 

865 CI$=LEFT$(RE$(1%(C2)),LK):IFFD>0ANDID>0THENC2$=MID$(R 



E$ (1% (C2)) ,ID,FD) 

: rem 

1 73 

870 

IFLK=0THEN890 

: rem 

2 

880 

FORC5=1TOLK:POKEC3+C5, ASC(MID$(CI $,C5,1)) :NEXT 




: rem 

222 

890 

IFC2$<>""THENFORC5=lTOC6:POKEC4+C5,ASC(MID$(C2$,C5,1) 


):NEXT 

: rem 

21 6 

900 

C3=C3 + 40:C4=C4+40:C2=C2 + 1 :C1=C1+1 

: rem 

1 89 

91 0 

IFC2=<HIANDC3<1870THEN860 

: rem 

202 

920 

P&INT"{HOME}{ 23 GIU'}{ 2 SPAZI}{RVS} Fi {OFF} AVANTI 


{ 2 SPAZI}{RVS} F3 {OFF} INDIETRO {RVS} 

F7 {OFF} 

FINE 


!» 

: rem 

1 62 

930 

PRINT"{HOME}{ 3 GIU'} >";:C0=0:POKEl98, 

0 : rem 

1 73 

940 

GETB$:IFB$<>"{Fi}"ANDB$<>"{F3}"ANDB$<>" 

{F7}"THENl 01 0 



: rem 

66 

9 50 

IFB$="{F 7}"THENRETURN 

: rem 

1 71 

960 

IFB$="{F3}"THEN990 

: rem 

1 08 

970 

IFC2=>HITHEN940 

: rem 

1 24 

980 

C3=l146:C4=1146+LK+2:Cl=0:GOTO820 

: rem 

33 

990 

IFC2-C1=<LOTHEN94 0 

: rem 

39 

1 000 

C2=C2-C1-19:C3=1146:C4=1146+LK+2:Cl=0: 

GOTO820 




: rem 

21 8 

1 01 0 

IFB$< >"{GIU'}"ANDB$< >"{SU}"ANDB$ < >CHR$(13)THEN940 



: rem 

67 

1 020 

IFB$=CHR$(13)THENl090 

: rem 

1 64 

1 030 

IFB$="{GIU'}"ANDC0=18THEN940 

: rem 

3 

1 040 

IFB$="{SU}"ANDC0=0THEN940 

: rem 

75 

1050 

IFB$ = "{GIU'}"ANDC0=>Cl-1THEN940 

: rem . 

1 72 

1 060 

IFB$="{GIU*}"THENC0=C0+1 

: rem 

252 

1 070 

IFB$ = "{SU}"THENCO=C0- 1 

: rem 

1 27 

1 080 

PRINT"{SIN} {SIN}"B$">";:GOTO940 

: rem 

7 

1 090 

Ci = (C2-LO-1)/I9 :C1%=C1 :IR=C0+LO+C1%*19 

: GOTO72 0 


* 


: rem 

51 

1 1 00 

REM MENU LINEARE 

: rem 

21 9 

ino 

PRINT"{HOME}{ 22 GIU'}" 

: rem 

29 

1 1 20 

PRINT"{ 2 SPAZI}{RVS} Fi {OFF} AVANTI{ 

2 SPAZI}f 

RVS} 


F 3 {OFF} INDIETRO{ 2 SPAZI}{RVS} F7 {OFF} FINE" 




: rem 

49 

1 1 30 

RETURN ‘ 

: rem 

165 

1 1 40 

REM RICERCA DICOTOMICA 

: rem 

1 27 

1 1 50 

Cl% = -1 

: rem 

251 

1160 

C I %=C1%+l 

: rem 

1 47 

1 1 70 

C2% = 2 tCl% 

: rem 

201 


21 



1 1 80 

IFC2%=<ITHENl160 

: rem 

1 72 

1 1 90 

C4 = 0 

: rem 

1 75 

1 200 

C2%=C2%/2:C3=C2% 

: rem 

28 

1 21 0 

IFC2% = 0THENl 300 

: rem 

77 

1 220 

IFC4+C3=<ITHENl 240 

: rem 

36 

1 230 

C3 = 0: GOTO! 270 

: rem 

230 

1 240 

Ci$=RE$(1%(C4+C3)) 

: rem 

1 27 

1 250 

KY$=LEFT$(CI $ ,LK) 

: rem 

200 

1 260 

IFKY$>K$THENC3=0 

: rem 

223 

1 270 

C4=C4+C3 

: rem 

1 50 

1 280 

IFKY$=K$THENl 310 

: rem 

1 94 

1 290 

GOTO!200 

: rem 

200 

1 300 

EQ$=">":C4=C4+1:GOTOl320 

: rem 

55 

1 31 0 

EQ$="=" 

: rem 

61 

1 320 

IR=C4:RE$=C1$ : RETURN 

: rem 

249 

1 330 

REM INSERIMENTO 

: rem 

248 

1 340 

IFI<MXTHEN1 380 

: rem 

1 24 

1 350 

PRINT"{HOME}{ 23 GIU'H 4 SPAZI}{RVS}{ 

2 SPAZI}MANCA 


SPAZIO PER INSERIMENTO" 

: rem 

1 76 

1 360 

GOSUB3 590 :FORA=1TOl 000:NEXT 

: rem 

200 

1 370 

PRINT"{SU}{ 38 SPAZI}": RETURN 

: rem 

71 

1 380 

SYS50688 

: rem 

21 4 

1 390 

PRINT"{HOME}{ 22 GIU'}" 

: rem 

39 

1 400 

PRINT"{ 2 SPAZI}{RVS} Fi {OFF} AVANTI{ 

17 SPAZI} 



{RVS} F7 {OFF} FINE" 

: rem 

1 83 

1 41 0 

SYS51 093 :SYS51 88 8:SYS51 444 

: rem 

73 

1 420 

FORC1=1984TO2023:POKECl,32:NEXT 

: rem 

1 34 

1 430 

IFPEEK(50675)=1THENl410 

: rem 

55 

1 440 

CI=PEEK(5067 3) :IFC1<>133ANDC1< >136THEN1410 : rem 

1 47 

1 450 

IFC1=136THEN1570 

: rem 

1 60 

1 460 

AR$ = ,f ” : FORCl =491 52TOFA: AR$ = AR$+CHR$ ( PEEK (Cl ) ) : NEXT 

: rem 201 

1 470 

IFLK=0THENIR=1+1iGOTOl520 

: rem 

70 

1 480 

K$=LEFT$(AR$,LK):GOSUBl140 

: rem 

1 9 

1 490 

IFEQ$=">"THENl 520 

: rem 

205 

1 500 

PRINT"{HOME}{ 23 GIU'}{ 9 SPAZI}{RVS}{ 

3 SPAZI}CHIAV 


E DOPPIA {OFF}{ 13 SPAZI}" 

: rem 

66 

1 51 0 

FORCl=1TOl000:NEXT:GOTOl380 

: rem 

1 72 

1 520 

IFD=0THENl540 

: rem 

1 

1 530 

Cl=D%(D):D=D-1 :GOTOl550 

: rem 

1 9 

1 540 

Cl=1+1 

: rem 

32 

1 550 

1 = 1 + 1 :FORC2 = ITOIRSTEP~1:I%(C2)=1%(C2-1) 

:NEXT: I % (IR) = 


Cl:RE$(Cl)=AR$ 

: rem 

1 47 

1 560 

GOTOl380 

: rem 

209 

1 570 

RETURN 

: rem 

1 73 

1 580 

REM VISUALIZZAZIONE 

: rem 

73 

1 590 

Cl$ =RE$(1%(IR)) :C2=0 

: rem 

38 

1 600 

FORCl=49152TOFA:C2=C2+l:POKECl,ASC(MID$(Cl$,C2,l)):N 


EXT 

: rem 

21 8 

1 61 0 

SYS50 68 8:SYS50763:GOSUBl 1 00 

: rem 

1 40 


22 



1 620 

GETA$: IFA$< >"{F1 }"ANDA$< >"{F 3} M ANDA$ < > 

"{F7}"THENl620 




: rem 

1 1 3 

1 630 

IFR>OTHENRETURN 


: rem 

40 

1 640 

IFA$ = "{F7 >”THENl700 


: rem 

1 91 

1650 

IFA$ = "{F3}"THENl 680 


: rem 

1 97 

1 660 

IFIR=HITHENGOSUB3590: GOTO!620 


: rem 

1 29 

1 670 

IR=IR+1 : GOTO! 590 


: rem 

223 

1 680 

IFIR=LOTHENGOSUB3590: GOTO!620 


: rem 

1 41 

1 690 

IR=IR-1 : GOTO!590 


: rem 

227 

1 700 

RETURN 


: rem 

1 68 

1 71 0 

REM AGGIORNAMENTO 


: rem 

1 20 

1 720 

Cl$=RE$(1%(IR)):C2=0:C2$=LEFT$(Cl$,LK) 


: rem 

44 

1 730 

FORCl=49152TOFA:C2=C2+l:POKECl,ASC(MID$(Cl$,C2,l)):N 


EXT 


: rem 

222 

1 740 

SYS50688:SYS50763:GOSUBl 100 


: rem 

1 44 

1 750 

SYS51 093 :SYS51 8 88:SYS51 444 


: rem 

80 

1 760 

FORCl=1984TO2023:POKECl,32:NEXT 


: rem 

1 41 

1 770 

A$=CHR$(PEEK(50673)):IFA$<>”{Fi}"ANDA$<> 

"{F3}"ANDA$< 


>"{F7}"THENl750 


: rem 

1 65 

1780 

IFA$="{F7}"THENl910 


: rem 

1 99 

1 790 

IFPEEK(50675)THENl750 


: rem 

21 7 

1 800 

AR$ = "":FORCl=49152TOFA:AR$=AR$+CHR$(PEEK(Cl)):NEXT:C 


3$=LEFT$(AR$,LK) 


: rem 

242 

1 81 0 

IFC2$=C3$THENl 840 


: rem 

1 97 

1 820 

PRINT"{HOME}{ 23 GIU'}{ 8 SPAZI}{RVS}{ 

2 

SPAZI}CHIAV 


B MODIFICATA {OFF}{ 11 SPAZI}" 


: rem 

91 

1 830 

GOSUB3590 :FORCl=1TO500:NEXT:GOTOl720 


: rem 

1 4 

1 840 

RE$(1%(IR))= AR$ 


: rem 

39 

1 850 

IFR>0THENRETURN 


: rem 

44 

1 860 

IFA$="{f 3}"THENl890 


: rem 

203 

1 870 

IFIR=HITHENGOSUB3590 : GOTO!750 


: rem 

1 36 

1 880 

IR=IR+1 :GOTOl720 


: rem 

221 

1890 

IFIR=LOTHENGOSUB3590:GOTOl 750 


: rem 

1 48 

1 900 

IR=IR-1 :GOTOl720 


: rem 

216 

1 91 0 

RETURN 


: rem 

1 71 

1 920 

REM ANNULLO 


: rem 

201 

1 930 

C1$=RE$(1%(IR)):C2=0 


: rem 

36 

1 940 

FORCl=49152TOFA:C2=C2+l:POKECl,ASC(MID$(C1$,C2,1)):N 


EXT 


: rem 

225 

1 950 

SYS50688:SYS50763 


: rem 

23 

1 960 

PRINT"{HOME}{ 23 GIU'}{ 2 SPAZI}{RVS}{ 

2 

SPAZI}VUOI 


VERAMENTE ANNULLARE{ 2 SPAZI}(S/N){ 2 

SPAZI}" 





: rem 

250 

1 970 

GETA$: IFA$< >"S"ANDA$< >"N"ANDA$< >"{F7}" 

THENl970 





: rem 

23 

1980 

IFA$ = "{F7}"ANDR=0THENl 970 


: rem 

97 

1990 

IFA$ = "N"ORA$ = "{F7}"THEN2020 


: rem 

1 52 

2000 

D=D + 1 :D%(D)=1%(IR) :FORCl=IRTOI-l : 1% (Cl) = 

I%(C1+1) 

: NEX 


T:1=1-1 


: rem 

1 30 

201 0 

IFR>0THENPR=PR- 1 


: rem 

32 

2020 

IFA$< >"{F7}"THENA$ = "{Fi }" 


: rem 

1 52 


23 



2030 

2040 

2050 

2060 

2070 

2080 
2090 
21 00 
21 1 0 

21 20 
21 30 
21 40 
21 50 
21 60 
2170 
21 80 
21 90 
2200 
221 0 
2220 
2230 
2240 

2250 

2260 

2270 

2280 

2290 

2300 

\ 2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 


RETURN 


: rem 

1 65 

REM RICERCA 


: rem 

1 63 

R=1 : Ri=1 


: rem 

1 78 

SYS50688 


: rem 

21 0 

PRINT"{HOME}{ 23 GIU’}{ 2 SPAZI}{RVS} IMMETTI PARAME 

TRO DI RICERCA {RVS} {OFF} Fi " 


: rem 

1 71 

SYS51 093 :SYS51 888:SYS51 444 


: rem 

77 

FORCl=1984TO2023:POKECl,32:NEXT 


: rem 

138 

IFPEEK(50675)=1THEN2080 


: rem 

54 

R$ = "":FORCl=491 52TOFA:R$=R$+CHR$(PEEK(C1 ) ) 

: NEXT:SI% = 

0 : S 2 % = 0 


: rem 

1 60 

FORCl=lTOLR 


: rem 

207 

Cl$=MID$(R$,C1,1):C2$=MID$(RC$,Cl,1) 


: rem 

114 

IFC 2 $ = " "ORC2$ = ,, X"THEN221 0 


: rem 

119 

IFS1% = 1THEN21 70 


: rem 

1 03 

SI%=1:IR%(R)=Cl:CR$="" 


: rem 

1 62 

CR$=CR$+C1 $ :IFC1$<>"0"THENS2% = 1 


: rem 

21 0 

IFC2$="0"THEN2260 


: rem 

1 57 

IFS2%=1THENCR$(R)=CR$:R=R+1:Cl=LR 


: rem 

244 

SI % = 0:S2% = 0 :-GOTO 2 2 60 


: rem 

1 04 

IFCl $=" "ANDS1%=0THEN2260 


: rem 

79 

IFS1%=1THEN2240 


: rem 

99 

IR%(R)=C1 : Si% = 1:CR$ = " " 


: rem 

1 60 

IFCl $ = " "ORC2$="X"THENCR$ (R) =CR$:Sl % = 0 :R 

=R+1:Cl=LR:G 

OTO2260 


: rem 

1 45 

CR$=CR$+Cl$ 


: rem 

59 

NEXT:IFR=RlTHEN2060 


: rem 

21 9 

PRINT"{CLR}{GIU’ }{ 4 SPAZI}{RVS} SCEGLI 

RELAZIONE 

: di 

RICERCA { 4 SPAZI}{GIU ’}" :R1=R1+1 


: rem 

34 

PRINT" { 14 SPAZI } {RVS}A{OFF} { 2 SPAZl}={ 

2 

SPAZI} 


{GIU’ }" 


: rem 

208 

PRINT" { 14 SPAZI } {RVS}B{OFF} { 2 SPAZl}>{ 

2 

SPAZI} 


{GIU 1 }" 


: rem 

21 1 

PRINT" { 14 SPAZI}{RVS}C{OFF} { 2 SPAZl}<{ 

2 

SPAZI } 


{GIU ’ }" 


: rem 

202 

PRINT" { 14 SPAZI}{RVS}D{OFF} { 2 SPAZl}=> 

{GIU* }" 




: rem 

1 1 

PRINT" { 14 SPAZI}{RVS}E{OFF} { 2 SPAZI }=< 

{GIU’ }" 




: rem 

1 1 

PRINT" { 14 SPAZI}{RVS}F{OFF} { 2 SPAZI }<> 

{GIU’ }" 




: rem 

1 4 

GETC$ : IFC$< " A"ORC$>"F"THEN2 34 0 


: rem 

201 

RR$ ( R-1)=C$: IFR=11THEN2380 


: rem 

237 

PRINT" { 8 SPAZI}{RVS} ANCORA ? (S/N) {OFF}" 

1 : rem 

84 

GETC$: IFC$O"S"ANDC$O ,, N"THEN2370 


: rem 

1 49 

IFC$="S"THEN2060 


: rem 

142 

R=R-1 :CC$ = " {YEL}" : RETURN 


: rem 

42 

REM ESEGUE RICERCA 


: rem 

97 

II 

o 

• * 

O 

NJ 

II 

O 

• * 

O 

<T> 

II 

O 


: rem 

1 8 

IFC 2 = 0THENPR=PR+1 


: rem 

69 

IFC 2 = 1THENPR=PR-1 


: rem 

73 


24 



2440 

IFPR<1THENPR=1 :GOSUB3590: RETURN 


: rem 

76 

2450 

IFPR>ITHENPR=I:GOSUB3590: RETURN 


: rem 

1 27 

2460 

C5 = 0 :FORC3=1TOR:C4 = 0 : CI=LEN(CR$(C3)) 


: rem 

1 00 

2470 

IFMID?(RE$(1%(PR)),IR%(C3),Cl)>CR$(C3) THENC4 = 1 





: rem 

61 

2480 

IFMID$(RE$(1%(PR)),IR%(C3),Cl)<CR$(C3)THENC4=-1 





: rem 

1 05 

2490 

IFC4=1AND(RR$(C3)="A"ORRR$(C3)="C"ORRR$(C3) 

= "E" 

) THEN 


C5 = l 


: rem 

1 83 

2500 

IFC4=0AND(RR$(C3)="B"ORRR$(C3)="C"ORRR$(C3) 

= "F" 

) THEN 


C 5= 1 


: rem 

1 76 

251 0 

IFC4=-1AND(RR$(C3)="A"ORRR$(C3)="B"ORRR$(C3)="D 

" ) THE 


NC 5= 1 


: rem 

21 9 

2520 

NEXT:IFC5=1THEN2420 


: rem 

1 74 

2530 

IR=PR:HI=PR:LO=PR 


: rem 

1 62 

2540 

IFM2$="B"THENGOSUB1 580 


: rem 

61 

2550 

IFM2$ = "C ,, THENGOSUBl 71 0 


: rem 

58 

2560 

IFM2$ = "D"THENGOSUBl 920 


: rem 

63 

2570 

C2=0:IFA$="{F3}"THENC2=1 


: rem 

247 

2580 

IFA$="{F7}"THENRETURN 


: rem 

21 9 

2590 

GOTO2420 


: rem 

209 

2600 

REM ORDINAMENTO 


: rem 

236 

261 0 

S = 1 : Si = 1 


: rem 

1 82 

2620 

SYS5068 8 


: rem 

21 2 

2630 

PRINT"{HOME}{ 23 GIU'} {RVS} INDICA IL 

CAMPO DI 

ORDÌ 


NAMENTO {OFF} Fi " 


: rem 

203 

2640 

SYS51 093 :SYS51 88 8:SYS51 4 44 


: rem 

79 

2650 

FORC1=1984TO2023:POKEC1,32:NEXT 


: rem 

1 40 

2660 

IFPEEK(50675)=1THEN2640 


: rem 

67 

2670 

R$ = "":FORCl=49152TOFA:R$=R$+CHR$(PEEK(C1)): 

NEXT: 

: Si % = 


0:S2%=0 


: rem 

1 71 

2680 

FORCl=1TOLR 


: rem 

21 8 

2690 

C1$=MID$(R$,Cl,1):C2$=MID$(RC$,Cl,1) 


: rem 

1 25 

2700 

IFC2$ = " ,, ORC2$ = "X"THEN2770 


: rem 

1 32 

271 0 

IFS1%=1THEN2730 


: rem 

1 07 

2720 

Si % = 1 :IS%(S)=C1:LS% = 0 


: rem 

157 

2730 

LS%=LS%+1:IFCl$<>"0"THENS2%=1 


: rem 

1 31 

2740 

IFC2$="0"THEN2820 


:rem 

161 

2750 

IFS2%=1THENLS%(S)=LS%:S=S+1:Cl=LR 


: rem 

15 

2760 

Si%=0:S2%=0:GOTO2820 


: rem 

1 1 7 

2770 

IFCl$=" "ANDS1%=0THEN2820 


: rem 

92 

2780 

IFS1%=1THEN2800 


: rem 

1 1 2 

2790 

IS%(S)=C1: Si% = 1 :LS% = 0 


: rem 

164 

2800 

IFC1 $ = " "ORC 2 $ = "X"THENLS %(S)=LS%:Sl% = 0: 

S = S+1: CI = 

=LR:G 


OTO2820 


: rem 

1 74 

281 0 

LS%=LS%+1 


: rem 

236 

2820 

NEXT:IFS=S1THEN2620 


: rem 

225 

2830 

PRINT"{CLR}{GIU’}{RVS} ORDINE ASCENDENTE O 

DISCENDEN 


TE (A/D) {GIU* }" :S1=S1+1 


: rem 

85 

2840 

GETC$: IFC $ < >"A"ANDC$ < >"D"THEN2 8 4 0 


:rem 

125 

2850 

TS%(S-l)=-l:IFC$="A"THENTS%(S-l)=1 


:rem 

149 


25 



2860 

IFS=11THEN2890 

: rem 

83 

2870 

PRINT"{ 8 SPAZI}{RVS} ANCORA ? (S/N) {OFF}":rem 

90 

2880 

GETC$ : IFC$<>"S" ANDC$O"N"THEN2880 

: rem 

1 61 

2890 

IFC$="S"THEN2620 

: rem 

1 50 

2900 

S = S-1 

: rem 

1 2 

291 0 

SW%=0:FORC1=1TOI-1 

: rem 

85 

2920 

C2 = 0 

: rem 

1 75 

2930 

C2=C2+1:C3=IS%(C2):C4=LS%(C2) 

: rem 

61 

2940 

IFC2<SANDMID$(RE$(1%(Cl) ) ,C3,C4)=MID$(RE $(11(C1+1) ) , 


C3,C4)THEN2930 

: rem 

1 1 3 

2950 

C5=0:IFMID$(RE$(1% (Cl) ) ,C3,C4)>MID$(RE$(1%(Cl+1)),C3 


,C4)THENC5=1 

: rem 

21 1 

2960 

IFMID$(RE$(1%(Cl)),C3,C4)<MID$(RE$(1%(C1+1)),C3, 

C4) T 


HENC5 = - 1 

: rem 

224 

2970 

IFC5<>TS%(C 2)THEN2990 

: rem 

232 

2980 

I% = I%(C1) : 1% (Cl)=1%(Cl+1) :I%(C1+1)=I%:SW% = 1: rem 

21 3 

2990 

NEXT:IFSW%=1THEN2910 

: rem 

20 

3000 

RETURN 

: rem 

1 63 

301 0 

REM SCRIVE DEFINIZIONE 

: rem 

1 68 

3020 

PRINT"{CLR}{ 2 GIU 1 }{ 3 SPAZI}{RVS}{ 34 

SPAZI}" 




: rem 

93 

3030 

PRINT"{ 3 SPAZI}{RVS}{ 2 SPAZI}SCRITTURA 

l DEFINIZIONE 


ARCHIVIO{ 2 SPAZI}" 

: rem 

243 

3040 

PRINT"{ 3 SPAZI}{RVS}{ 34 SPAZI}{OFF}{ 2 

: GIU 1 }" 




: rem 

94 

3050 

PRINT" { 8 SPAZI }MONTA NASTRO SU UNITA"' 

: rem 

63 

3060 

GETA$:IFA$=""THEN3060 

: rem 

1 81 

3070 

OPENl ,1,1 /'DEFINIZIONE" 

: rem 

1 39 

3080 

PRINT#1,LK:PRINT#!,LR:PRINT#!,ID:PRINT#1 

,FD:PRINT#1, 


V 

: rem 

1 50 

3090 

FORC1=1TOV:C2=LEN(CV$(Cl)) 

: rem 

44 

31 00 

PRINT#1,XV%(Cl):PRINT#1,YV%(Cl):PRINT#1, 

C2:PRINT#!,C 


V$ (Cl) :NEXT 

: rem 

71 

31 1 0 

PRINT#1,T 

: rem 

38 

31 20 

FORC1=1 TOT 

: rem 

1 34 

31 30 

PRINT#1,XT%(Cl):PRINT#1,YT%(Cl):PRINT#1, 

LT% (Cl) : 

PRI N 


T#1,DT%(Cl) 

: rem 

226 

3140 

PRINT#1,TT%(Cl):NEXT 

: rem 

224 

31 50 

CLOSEl : RETURN 

: rem 

1 38 

31 60 

REM LEGGE DEFINIZIONE 

: rem 

70 

31 70 

PRINT"{CLR}{ 2 GIU 1 }{ 3 SPAZI}{RVS}{ 34 

SPAZI}" 



:r em 99 

3180 PRINT"{ 3 SPAZI}{RVS}{ 3 SPAZI{LETTURA DEFINIZIONE A 
RCHIVIO{ 3 SPAZI}" : rem 89 

3190 PRINT"{ 3 SPAZI}{RVS}{ 34 SPAZl}{OFF}{ 2 GIU'}" 

: rem 100 

3200 PRINT"{ 8 SPAZI}MONTA NASTRO SU UNITA’" : rem 60 

3210 GETA$:IFA$ = ""THEN321 0 :rem 175 

3220 OPEN1 ,1 ,0, "DEFINIZIONE" .-rem 135 

3230 INPUT#1/LK:INPUT#! ,LR:INPUT#1,ID: INPUT#1 , FD : INPUT#! , 

V : rem 162 


26 



3240 

3250 

3260 

3270 

3280 

3290 

3300 
331 0 
3320 
3330 
3340 
3350 

3360 

3370 

3380 

3390 

3400 

341 0 
3420 
3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

351 0 
3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 


FORCIPITOV : rem 139 

INPUT#1 ,XV%(CI) : INPUT#1,YV%(Cl ) : INPUT#! ,C2:Cl$ = "" 

:rem 103 

FORC3=lTOC2:GET#1 ,C2$:C1$=C1$+C2$:NEXT:GET# 1 ,C2$ :CV$ 
(Cl)=C1$:NEXT : rem 2 

INPUT#1 » T : rem 48 

F0RC1=1 TOT : rem 141 

INPUT#! ,XT%(Cl) : INPUT#! ,YT%(Cl) : INPUT#!,LT%(Cl) :INPU 
T#1,DT%(C1) : rem 245 

INPUT#!,TT%(Cl):NEXT ;rem 225 

CLOSEl: RETURN :rem 136 

REM LEGGE DATI : rem 50 

INPUT"VUOI LEGGERE I DATI (S/N) ";A$ :rem 7 

IFA$="N"THENRETURN :rem 156 

PRINT"{CLR}{GIU 1 }{ 4 SPAZI}POSIZIONA NASTRO PER DATI 

" : rem 220 

GETA$:IFA$=""THEN3360 :rera 187 

OPEN!,1,0 :rem 233 

INPUT#1,1:1NPUT#!,NO$:FORC 0=1TOI :rem 32 

Cl:FORCl=1TOLR:GET#1,C2$:Cl$=C1$+C2$:NEXT 

: rem 67 

RE$(CO)=C1$ : 1%(CO)=C0:GET#1 ,C2$ :NEXT:CLOSEl: RETURN 

:rem 222 

REM INIZIALIZZA TABELLE & VIDEO :rem 144 

FORCl=ITOV :rem 139 

C2=XV%(Cl)+40*YV%(Cl)+49664:C3=C2+LEN(CV$(Cl))-1:C5= 
0 :rem 90 

FORC4=C2TOC3:C5=C5+1:C1$=MID$(CV$(Cl),C5,1):POKEC4,A 
SC (C1 $) :NEXT:NEXT : rem 86 

Tl=49408:FORCl=1 TOT : rem 145 

C2=XT%(Cl)+40*YT%(Cl)+49664:C3=C2+LT%(Cl)-DT%(Cl)-1 

: rem 193 

FORC4=C2TOC3:POKEC4,254:NEXT :rem 23 

IFDT%(Cl)=0THEN3500 :rem 68 

POKEC3 + 1 ,255:C2=C3 + 2:C3=C2+DT%(Cl)-1 :FORC4=C2TOC3: PO 
KEC4,254 :NEXT : rem 72 

POKETl ,LT%(Cl) :POKETl+1 ,TT%(Cl) :POKETl+2,YT%(Cl) : POR 
ETl+3,XT%(Cl) : rem 86 

Tl=Tl+4 :NEXT : rem 232 

POKETl ,255:POKETl+1 ,255 :POKETl+2,64 :POKETl+3,64 

:r em 27 

e1$ = "" : rem 228 

FORCl=1 TOT : rem 140 

IFTT%(Cl)=1THEN3570 :rem 90 

FORC2 = 1 TO (LT% (Cl ) -1 ) :C1 $=Cl $ + " " :NEXT:C1 $=Cl $ + , 'X" :GO 
TO358 0 : rem 180 

FORC2 =1TO(LT%(Cl)-1) :Cl $=Cl$ + "0":NEXT:Cl$=Cl$ + "l" 

:r em 123 

NEXT:RC$=Cl$:RETURN :rem 241 

BA=54 272 :POKEBA+24,15 :POKEBA+5,3*16 + 5 :POKEBA+6,8*16 + 
15 :r em 1 9 


27 



3600 POKEBA+1 ,50 :POKEBA,0 :POKEBA+2,0 :POKEBA+3,8 :POKEBA+4, 



65 


: rem 

229 

361 0 

FORA=lTO500:NEXT 


: rem 

1 7 

3620 

POKEBA+4,0 :POKEBA+5,0 :POKEBA+6,0 : RETURN 

: rem 

163 

3630 

REM SCRIVE DATI 


: rem 

1 58 

3640 

IFI=0THENEND 


: rem 

24 

3650 

PRINT"{CLR}{GIU'}{ 5 SPAZI}{RVS}{ 26 

SPAZI} 

T» 





: rem 

85 

3660 

PRINT"{ 5 SPAZI}{RVS}{ 7 SPAZI}SCRITTURA DATI 



{ 5 SPAZI}" 


: rem 

1 49 

3670 

PRINT"{ 5 SPAZI}{RVS}{ 26 SPAZI}{GIU' 

}" 

: rem 

1 96 

3680 

IFMl$="{F3}"THEN3710 


: rem 

3 

3690 

INPUT"{ 3 SPAZI}NOME ARCHIVIO ";NO$ 


: rem 

38 

3700 

PRINT 


: rem 

87 

371 0 

PRINT"{ 6 SPAZI} POSIZIONA NASTRO{GIU' 

}" 

: rem 

64 

3720 

GETA$: IFA$ = ""THEN3720 


: rem 

1 87 

3730 

OPENl,1,1,NO$ 


: rem 

21 5 

3740 

PRINT#! ,I :PRINT#1 ,NO$ 


: rem 

44 

3750 

FORC1=1TOI:PRINT#!,RE$(1%(CI)):NEXT 


: rem 

1 31 

3760 

CLOSEl : END 


: rem 

1 36 


Squadra anticarro 


C64 


Joystick 


Foresta delle Ardenne, dicembre 
1944. Le ultime superstiti Panzerdi- 
visionen tedesche cercano di pas¬ 
sare alla controffensiva. Ma per 
raggiungere le posizioni alleate de¬ 
vono oltrepassare un ponte teso 
tra le pareti delle montagne. 

Un gruppo di partigiani è venuto 
però in possesso di un cannone 
anticarro, e si appresta a sconfig¬ 
gere le ultime velleità di riscatto 

1000 REM SQUADRA ANTICARRO 
1010 PRINTCHR? (14 7) : POKE532 8 
1 020 POKE54 2 96,1 5 
1 030 POKE53 269,3 :POKE204 0,1 3 
1 040 FORI = 0TO62: READJ:POKE83 


delle armate hitleriane. Al coman¬ 
do di questa brigata ci sei tu, che 
dovrai distruggere ad uno ad uno 
i panzer tedeschi. 

Si gioca con il joystick in porta 2; 
e per ogni carro colpito il tuo pun¬ 
teggio aumenta. Attenzione però 
che le munizioni a tua disposizione 
sono scarse: solamente 100 proiet¬ 
tili. In bocca al lupo e viva il Belgio 
libero! 

:rem 89 

,0 :POKE53281 , 0 :rem 204 

: rem 142 

POKE2 0 41 ,1 4 :rem 219 

+ 1, J :NEXT : rem 118 
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1 050 

FORI=0TO62:READJ:POKE896+I,J: 

NEXT 

: rem 

129 

1 060 

FORI=49183T049478:READJ:POKEI 


: rem 

1 84 

1 070 

CC=CC+J:NEXT:READJ 


: rem 

1 59 

1 080 

IFJOCCTHENPRI NT" ERRORE NELLE 

DATA 1990- 

2330":END 




: rem 

21 2 

1090 

SYS49183 


: rem 

21 0 

1 1 00 

POKE5327 7,PEEK(5327 7)OR(2 T 1 ) 


: rem 

86 

ino 

POKE53 2 50,2 50 :POKE53251 , 1 50 


: rem 

223 

1120 

POKE53287,7 :POKE53288,0 : S = 1 50 

: J = 150 

: rem 

229 

1 1 30 

SE=0 : SH=99 : R$=CHR$ (1 8) : S$=CHR$ (19) 

: rem 

1 60 

1 1 40 

SP$="{ 20 SPAZI}" 


: rem 

1 4 

1 1 50 

GOSUB1630 


: rem 

1 7 

1 1 70 

POKE49152,85:POKE49153,0 


: rem 

97 

1 1 80 

POKE49156,250:POKE49157,0 


: rem 

1 48 

1 1 90 

POKE49160,100:POKE4 9161 ,0 


: rem 

1 33 

1 200 

POKE49164,200:POKE49165,0 


: rem 

1 34 

1 21 0 

POKE49177,0:POKE49168,0 


: rem 

44 

1 220 

POKE491 6 9,1 50 :POKE491 73,1 00 


: rem 

241 

1 230 

POKE53281,4 


: rem 

88 

1 240 

REM LOOP PRINCIPALE 


: rem 

204 

1 250 

T = T-4:IFT< 40THENT=255 


: rem 

39 

1 260 

POKE53 2 50,T 


: rem 

1 1 9 

1270 

PRINTS$"PUNTI :"SE:PRINTS$;SPC(14)"RECORD 

: 11 HI 





: rem 

87 

1 280 

PRINTS$;SPC(30)"COLPI :"SH;CHR$(15 7)" " 

: rem 

1 62 

1 290 

IFSE>HITHENHI=SE 


; rem 

87 

1 300 

X=PEEK(49169):Y=PEEK(49173) 


2 rem 

42 

1 31 0 

IFSH<1THENl570 


: rem 

88 

1 320 

POKE53 24 8,X:POKE5324 9,Y 


: rem 

1 1 6 

1 330 

F=PEEK(49177) 


2 rem 

204 

1 340 

POKE49177,0 


: rem 

95 

1350 

IFF=1THENSH=SH-1 


2 rem 

1 2 

1 360 

IFF=1AND(X>T+8ANDX<T+18)AND(Y>150ANDY<156)THENGOSUB1 


390 


: rem 

1 58 

1 370 

POKE49177,0 


2 rem 

98 

1 380 

GOTO!250 


2 rem 

205 

1390 

REM CARRO ARMATO COLPITO 


: rem 

6 

1400 

POKE54296,15:SE=SE+1*SH:G=1 


: rem 

71 

1 41 0 

SH=SH-1 


: rem 

1 51 

1 420 

POKE54276,0:POKE54290,0 


: rem 

35 

1430 

POKE54 27 6,33:POKE54290,33 


2 rem 

1 44 

1 440 

POKE54277,31:POKE54291,31 


2 rem 

1 43 

1450 

POKE54 27 8,240:POKE542 92,240 


; rem 

246 

1460 

FORL=255TOl8STEP-3 


: rem 

1 27 

1 470 

POKE54 2 7 3,L-7 :POKE54 2 8 7,L 


2 rem 

199 

1 480 

POKE54 2 7 2,200:POKE54 2 86,200 


2 rem 

238 

1 490 

POKE53288,L:NEXT 


2 rem 

248 

1 500 

POKE54276,1 29 :POKE54290,129 


2 rem 

250 

1 51 0 

FORV=l5TO0STEP-1:POKE53296,3 


2 rem 

229 

1 520 

POKE54 2 73,2;POKE54287,200+V 


: rem 

1 2 

1 530 

POKE54 2 72,90:POKE542 86,90 


2 rem 

1 52 
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1 540 POKE54296,V:POKE53269,1 :NEXT:T=255 :rem 52 

1 550 POKE542 76,0 :POKE54 2 90,0 :POKE53250,T :rem 15 

1 560 POKE532 88,0 :POKE532 69,3 :POKE491 73,1 00 :POKE491 69,1 50: 

RETURN :rem 178 

1570 REM ROUTINE DI FINE GIOCO :rem 247 

1 580 PRINTCHR? (1 9 ) CHR$ (1 7)CHR$ (1 7)CHR$ (5) :rem 18 

1590 PRINTTAB(6)"PREMI UN TASTO PER RIGIOCARE" :rem 37 

1595 PRINTTAB(12)"{GIU'}’Fl'{ 2 SPAZl}PER FINIRE" 

:rem 170 

1600 GETA$:IFA$=""THENl600 :rem 177 

1605 IFA$="{Fi}"THENSYS2048 :rem 194 

1610 PRINTCHR$ (147) : POKE.53 281 ,0:SH=99:SE=0 :rem 206 

1620 GOTO1150 :rem 201 

1630 REM DISEGNO SCHERMATA :rem 79 

1 640 PRINTCHR$(147) ; :FORT=1T05:PRINTCHR$(17) :NEXT:PRINTCH 
R$ ( 144) : rem 23 2 

1650 PRINTSPC{39);R$" "; :rem 44 

1660 PRINTSPC(37);R$;LEFT$(SP$,3); :rem 232 

1 670 PRINTR$" "SPC (33) ;R$;LEFT$ (SP$,6) ; :rem 162 

1680 PRINTR$;LEFT$(SP$,2);CHR$(127);SPC(29);R$;CHR$(190); 

LEFT$(SP$,7); :rem 238 

1690 PRINTR$;LEFT$(SP$,4);SPC(27);R$;LEFT$(SP$,9); 

:rem 163 

1700 PRINTR$;LEFT$(SP$,4);CHR$(127);SPC(25);R$;CHR$(169); 

LEFT$(SP$,9); :rem 237 

1710 PRINTR$;LEFT$(SP$,6);CHR$(127);SPC(22)R$;CHR$(191);L 
EFT$(SP$,10); :rem 213 

1 720 PRINTR$ ; LEFT$ (SP$,7) ; CHR$ (1 72) ; SPC ( 20 ) R$ ; CHR$ (169)LE 
FT$(SP$,11); :rem 160 

1 730 PRINTR$;LEFT$(SP$,9) ; :FORT=1T09 :rem 207 

1740 PRINTCHR?(162);R$" ";:NEXT:PRINTR?;LEFT$(SP$,12); 

: rem 150 

1750 PRINTR$;SP$;SP$; :rem 15 

1760 PRINTR$;LEFT$(SP$,10);CHR$(127);SPC(14);R$;CHR$(169) 
;LEFT$(SP$,14); :rem 74 

1770 PRINTR$;LEFT$(SP$,12);CHR$(188);SPC(9);R$;CHR$(187); 

LEFT$(SP$,17); :rem 43 

1780 PRINTR$;LEFT$(SP$,12);CHR$(172);SPC(7)R$;SP$; 

: rem 135 

1790 PRINTR$;LEFT$(SP$,12);SPC(10);R$;CHR$(187);LEFT$(SP$ 
,17); : rem 39 

1800 PRINTR$;LEFT$(SP$,13);CHR$(172);SPC(5);R$;SP$;" "; 

:r em 5 7 

1810 PRINTR$ ; LEFT$ (SP$ ,15) ;CHR$ (127) ;SPC (2) ;R$;CHR$ (169) ; 



SP$;" 

: rem 

1 02 

1 820 

PRINTR$;SP$;SP$; 

: rem 

1 3 

1 830 

PRINTR$;SP$;LEFT$(SP$,19); 

: rem 

68 

1 840 

FORT=1T010 :R=INT(RND(TI)*280) 

:POKE55296+R,1:POKEl024 


+R,46 :NEXT 

s rem 

31 

1 850 

POKE2022,160:POKE56295,0 

: rem 

86 

1 860 

POKE2023,160:POKE56294,0 

: rem 

87 


30 



1 870 

POKE554 63,1 :POKEl 191 ,81 

: rem 

45 

1 880 

RETURN 

: rem 

1 77 

1 890 

REM SPRITE MIRINO 

: rem 

91 

1 900 

DATA255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0, 

0,0 



: rem 

1 36 

1 91 0 

DATAO, 24,0,0,24,0,0,24,0,0,0,0,7,231,224,0 

,0,0,0 

,24, 


0,0,24,0,0,24,0 

: rem 

1 34 

1 920 

DATAO,0,0,0,0,0,0,0,0,0,0,0,255,255,255 

: rem 

98 

1 930 

REM SPRITE CARRO ARMATO 

: rem 

195 

1 940 

DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,0, 

0,0 



: rem 

92 

1 950 

DATAO,8,0,0,31,0,0,63,128,63,255,192,0,127 

,192,0 

, 1 27 


,192 

: rem 

21 0 

1960 

DATAO,63,0,3,255,1 92,6,1 72,1 60,1 1 ,255,240 

: rem 

253 

1 970 

DATAI 5,2 55,208,5,85,96,3,2 55,1 92 

: rem 

99 

1 980 

REM ROUTINE L/M 

: rem 

1 64 

1990 

DATAI 20,1 73,20,3,1 41 ,29,1 92,1 73,21 

: rem 

1 71 

2000 

DATA3,1 41 ,30,1 92,1 69,71 ,1 41 ,20,3 

: rem 

55 

2010 

DATAI 69,192,141,21,3,88,96,120,1 73 

: rem 

1 78 

2020 

DATA29,192,141,20,3,173,30,192,141 

: rem 

1 60 

2030 

DATA21,3,88,96,173,27,192,205,16 

: rem 

82 

2040 

DATAI 92,240,3,76,65,1 93,169,255 

: rem 

42 

2050 

DATAI 41,27,1 92,1 62,0,160,0,185,2 

: rem 

60 

2060 

DATA220,141,28,192,169,224,153,2 

DATA220,! 85,0,2 20,72,1 73,28,192 

: rem 

73 

2070 

: rem 

23 

2080 

DATAI 53,2,220,1 89,8,192,221 ,21 ,192 

: rem 

1 73 

2090 

DATAI 89,9,19 2,2 53,22,1 92,1 44,1 8 

: rem 

44 

21 00 

DATAI 89,8,192,157,21 ,1 92,1 89,9,192 

: rem 

1 98 

21 1 0 

DATAI 57,22,1 92,104,74,72,76,1 62 

: rem 

30 

21 20 

DATAI 92,104,74,72,1 76,1 3,222,21 

: rem 

1 9 

21 30 

DATAI 92,1 89,21 ,1 92,201 ,255,208,3 

: rem 

77 

21 40 

DATA222,22,192,189,21,192,221,12 

: rem 

68 

21 50 

DATAI 92,1 89,22,1 92,253,1 3,1 92,1 44 

: rem 

1 35 

21 60 

DATAI 8,1 89,1 2,1 92,1 57,21 ,1 92,1 89 

: rem 

95 

21 70 

DATAI 3,1 92,1 57,22,1 92,104,74,72,76 

: rem 

1 83 

21 80 

DATA2 0 7,192,1 04,74,72,1 76,8,254,21 

: rem 

1 83 

21 90 

DATAI 92,208,3,254,22,1 92,1 89,0,1 92 

: rem 

1 84 

2200 

DATA221,17,192,189,1,192,253,18 

: rem 

29 

221 0 

DATAI 92,144,1 8,1 89,0, 1 92,1 57,1 7 

: rem 

36 

2220 

DATAI 92,1 8 9,1 ,192,1 57,1 8,192,1 04 

: rem 

86 

2230 

DATA74,72,76,1,193,104,74,72,176 

: rem 

87 

2240 

DATAI 3,222,1 7,192,1 89,17,1 92,201 

: rem 

77 

2250 

DATA2 55,208,3,222,1 8,1 92,1 89,1 7 

: rem 

37 

2260 

DATAI 92,221 ,4,1 92,1 89,1 8,192,253,5 

: rem 

1 87 

2270 

DATAI 92,144,18,1 89,4,1 92,157,17 

: rem 

46 

2280 

DATAI 92,1 89,5,192,1 57,1 8,192,1 04 

: rem 

96 

2290 

DATA74,72,76,46,193,1 04,74,72,176 

: rem 

1 50 

2300 

DATA8,254,17,192,208,3,254,18,192 

: rem 

1 31 

2310 

DATAI 04,74,1 76,5,169,1 ,1 53,2 5,192 

: rem 

1 28 

2320 

DATA200,232,232,224,4,240,3,76,91 

: rem 

109 

2330 

DATAI 92,238,27,1 92,108,29,1 92 

: rem 

200 

2340 

DATA3 599 4 : REM CHECKSUM 

: rem 

98 


31 





? COMMODORE 



SuperSinc 
Super Commodore 
sono idee 

yj.soft 
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